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PREFACE 



This publication provides the information required by a 
user who want to migrate from a System/3 to IBM 4300 
Processor under DOS/VSE. It contains the information 
needed to convert programs and files and to prepare the 
corresponding control card. The assistance concerning file 
distribution is more meaningful when the user is famihar 
with the physical location of these files. 
^ The publicafion is divided into three main parts: 
"Understanding the Program" contains a functional 
descripfion of the program and presents hardware and 
software requirements. 

"Installing the Program" describes the components of the 
program as distributed and how to install them. 

"Running the Program" contains the steps in performing 
the conversion of a job stream and describes the input and 
output. 

Appendix A and Appendix B contain a detailed 
description of each component of the program and of the 
layout of the files used by these components. These 
appendixes should be consulted for modifications to the 
source code. Appendix C contains a sample problem, 
illustrating the conversion of the job streams of two' 
programs. 



All listings are in English, and all constants are in tables oi 
arrays at the end of each program. This makes it easy to 
modify them or to tranlate them into another language. 

In order to use the System/3 to DOS/VSE Conversion 
Aid program, the reader should be familiar with the 
differences between System/3 RPG and DOS/VS RPG. He 
must also be familiar with the JCL, sort specifications and 
programs, and the charateristics of the different access 
methods. 

Before using this International Field Program, the reader 
should be familiar with the contents of System/3 to 
DOS/VS Conversion Guide, GC20-1 792 and Introduction 
to DOS/VS, GC33-5370. 
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This edition applies to Version 1, Modification Level 0, of Conversion Aid System/3 
to DOS/VSE, Program Number 5785-KAD, and to all subsequent releases and 
modifications until otherwise indicated in new editions or Technical Newsletters 
Changes are periodically made to the information herein; before using this 
pubhcation m connection with the operating of IBM systems, consult the latest IBM 
System/ 3 70 Bibliography. GC20-0001, for the editions that are applicable and 
current. 



Publications are not stocked at the address given below; requests for IBM 
pubhcations should be made to your IBM representative or to the IBM branch office 
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A form for reader's comments is provided at the back of this publication. If the form 
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INTRODUCTION 



When a Systera/3 user decides to upgrade to a System/370 or an IBM 4300 
Processor, he encounters a certain number of difficulties. First, 
System/3 RPG, in which most user programs are written, does not have the 
same functions as DOS/VS RPG. Second, within a short time the user has 
to change not only his programs, but also the control cards and physical 
location of the files. 

IBM has made the System/3 to DOS/VSE Conversion Aid International Field 
Program available in order to help the System/3 user convert to DOS/VSF 
and allow him to prepare for the conversion using his System/3. In this 
way, while using tools familiar to him, he can have his programs ready 
for execution when his System/370 or 4300 is installed. 

It is recommended that System/3 sequential files without additions to 
the end of the file and treated consecutively be converted to SAM files. 
Otherwise files should be converted to VSAM files. 



UNDERSTANDING THE PROGRAM 



The System/3 to DOS/VSE Conversion Aid International Field Program 
consists of 19 source programs written in System/B RPG and one resident 
program written in DOS/VSE Assembler language. The DOS/VSE program 
should be catalogued into the DOS/VSE relocatable library. This routine 
serve as a complement to the converted System/3 programs when the chosen 
methods is VSAM, and it is used to access on ESDS VSAM file or to access 
the Data component of a KSDS VSAM file by relative record number. 

THE CUSTOMIZER 

The first four programs to be executed make up the customizer; two of 
these programs can be executed on a System/3 Model 10 and the other two 
on a Systera/3 Model 15-B. The following is specified: 

• Using the SWITCH card: 

Control statement input on 80- or 96-column cards or on 
diskette 

Customized output of the conversion aid programs on 80- or 
96-column cards, diskette, or magnetic tape 

Output of the components to be cataloged on the DOS/VSE 
relocatable library on 80-column cards, diskette, or magnetic 
tape. 

• Configuration of the System/3 on which the conversion programs are 
to be executed: 

Input of the programs to be converted to 80- or 96-column 
cards or diskette 

Type of disk unit for work files 

Output of the converted programs (including control cards for 
cataloging and printer carriage control tapes) en 80- or 
96-column cards, diskette, or magnetic tape 

Output of the input job stream for execution under DOS/VSE on 
80- or 96-column cards, diskette, or magnetic tape. 

• Correspondence between System/3 devices and System/3 70 devices 

• Description of System/370 or 4300 configuration: 

Type of disk (3330, 3340 or FBA) 

Type of printer 

Printer line length (default value) 

Printer overflow line (default value) 

System/370 POWER/VS (included or excluded) 

This customizer will call an input file that contains the remaining 
components of the conversion aid program. 



If this customizer needs to be executed on a System/3 Model 15-C or 15- 
D, programs CST151 and CST152, residents in Source Library, must be 
compiled. The SUBR93 subroutine, needed to compile CST151 program, is 
cataloged in R library. 

THE CONVERSION PROGRAM 

CONVOO and CONV01, the first two components of the actual conversion 
program, prepare the definition and calculate the occupancy of all the 
files of the programs to be converted. 

The CONVOO control cards specify the characteristics of all files: the 
type and name of each file, the length and number of records, and so on. 
CONV01 provides a listing of file occupancy of the logical units, and 
places on a work file the information required by subsequent components. 

Sequential disk files can be converted to SAM or VSAM-ESDS. Direct 
files can be converted to VSAM-RRDS with relative record number. 

Indexed files can be converted to VSAM-KSDS or VSAM-ESDS with alternate 
indexes (if the file is created unordered) . 

The CONV02 component reads the System/3 source programs. If these 
programs are compatible with the file definitions, and if there are no 
other unresolvable incompatibilities, CONV02 places them in a work file. 
CONV02 is the only component that is executed each time a source program 
is converted. If a program is not accepted, only that program need be 
resubmitted. 

It is assumed that all programs to be converted have been executed 
without error on the System/3. The CONV03 to CONV05 components convert 
all the source programs in a job stream placed in the work file by 
CONV02. CONV05 places the converted source programs on the type of 
media specified in the customizer. 

The listings produced for each converted program contain: 

• A listing of the converted program 

• Modifications performed by the conversion aid program 

• Modifications assumed by default and which must be verified 

• Functions that the program cannot convert and which must be 
converted manually. 

The conversion aid program contains a large number of components in 
order to execute it on a System/3 16K partition. 

The programs converted using components CONVOO to CONV05 can be executed 
under DOS/VSE. The remaining components perform the following 
functions: 

Creating printer carriage control tapes 

Distributing files on disk 

Preparing the conversion of System/3 files to System/370 via 
intermediate tape files or Data Import Feature 

Defining catalog, space, and VSAM files 

Preparing the input job stream for execution. 



CHEATING PRINTER CAPPIAGE CONTRCI TAPES 

The CONV06 component processes printer carriage control tapes. First, 
It reduces their number to a minimum; then it numbers them, starting 
with the number specified in the input to the CONV04 component. In 
addition, it gives a name to each tape and lists its format. The 
component generates the control and data statements used to compile and 
catalog all the FCBs, unless an IBM 1U0 3 Printer without POWER/VS is to 
be used. 

DISTRIBUTING FIIES CN DISK 

The CONV07 component distributes files on disk. A data statement must 
be entered to CONV07 for each SYSXXX defined in CONVOO to relate the 
SYSXXX to the volume number and to indicate the relative position in 
which the disk space of the pack must be allocated. If these statements 
contain no errors, CONV07 produces an occupancy list similar to the one 
produced by CONV01. This list indicates the files on each pack which 
may contain one or several SYSXXX. CONV07 produces, too, a listing of 
the DLBLs and TLBLs in alphabetical order according to labels and with 
blank file names. 

DOCUMENTATING INSTALIATICK AND FILES CONVERSION 

Components CONV08 to CONV10 docunrent installation and prepare the 
conversion of files from System/3 to System/370 or IBM/U300. Files can 
be converted via tape medium (concerns only those files whose definition 
statement contain an R in column 65) or via Data Import utility if 33U0 
Data Import Feature is installed. (Concerns only those files whose 
definition statement contain U in column 65.) 

The CONC09 component lists all control statements required to execute 
the programs converted at this point. This listing is in alphabetical 
order according to prograir name. The control statements are prepared 
assuming the pograms use the NAME-LABEL relationship specified in 
CONV02. These listings may be useful if the components that prepares 
the input job stream for execution are not used. Again, the CONV09 
component prepares if any file definition statement was specified with 
an R in column 65: 

• The STINIT statements to initalize tapes 

• The SCOPY statements needed to dump tape files with a block size no 
larger than 1096 bytes. 

The CONV10 component prepares: 

• DEFINE MASTER CATALOG Statements, to which must be added the number 
of the first track/block of the EXTENT and the name of the disk 
pack from the EXTENT statement and from the VOLUME parameter in the 
corresponding AMS statement. 

• DEFINE SPACE Statements. 

• DEFINE CLUSTER statements to every VSAM file defined. 

• DEFINE ALTERNATE INDEX and its PATH to every VSAM file defined with 
type A specified. 

• REPRO statements (concerns only to those files whose definition 
statement contains an R in column 6 5) . 



• DATA IMPORT UTILITY Statements (concerns only to those files whose 
definition statement contains a U in column 65) . 

• BUILD INDEX Statements (concerns only those files whose definition 
statement contains an R or an U in column 65 and type A specified) . 

PREPARING THE INPUT JOB STREAM FOR EXECUTION 

Components C0NV1 1 to CONVIU convert System/3 OCL to DOS/VSE JCL. Input 
can be any set of System/3 OCL control statements, but /*, /5, and /. 
records must be replaced manually by */, 5/, and ./ in order to avoid 
terminating the program on an end-of-file condition. 

If an OCL stream is unexpectedly terminated, the CONVl 1 component can be 
executed again, beginning with the data that was not processed. The 
created records will be added to the output file. 

If the OCL statements contain no errors, and if all programs and files 
referred to in the statements have already been converted: 

• The DOS/VSE JCL statements reguired to execute the converted 
programs are generated. 

• System/3 COPY statements are converted to AMS REPRO statements. 

• System/3 SORT control statements are converted, with the exceptions 
given in Appendix A. 

Special care is required when converting SORT control statements 
using the digit-portion option. These statements are not 
converted, unless the numeric field is changed from a D to a C or a 
u. 

The remaining OCL statements are transferred without change, and a 
warning message is issued. 

ADDITIONAL CONVERSION MODULES 

VJhen a Systera/3 program processes randomly a sequential file converted 
to ESDS, the converted program calls the WKVMXV module. 

PROGRAM CONV ERSION FUNCTIONS 

The following functions are performed by the components of the program: 

• The H statement is transferred with its valid entries. 

• All statements are numbered and contain the name of the program. 

• The required entries of the F statement are changed according to 
the file characteristics and the logical SYSXXX unit. 

• File names are decreased to seven characters and are modified (if 
required) to avoid duplicates. The corresponding F, E, I, C, and 
statements and file conversion cards are updated. 

• The first ten compilation tables are modified to fit into 80-column 
cards (if they exceed 80 positions) . 



The E statement is modified from execution tables or arrays if the 
number of entries per record is to be modified. The number of 
entries per record is also modified in the E statement if the 
record length has been changed. 

New table files are created when more than one execution table is 
assigned to a file. 

The L statement is converted to comments, or a new L comment 
statement is created for a printer file. 

Decimal positions are placed in arrays or in elements of arrays 
defined in I statements. 

Half-adjust {H in position 53) is added for SQRT operations. 

Module to convert relative record number to relative byte address 
(for VSAW ESDS files) is included and flagged. 

C statements added to branch to the included module are updated. 

C statements are added to create random RRDS files. 

The ADC characters in the addition to sequential files are 
suppressed. 

If nothing is added to an additions file, this condition is 
detected. 

Errors in operation codes are detected. 

In statements, the skip to line number by channel SKIP is 
changed. 

One space is assumed following printer lines without spacing or 
SKIPS. 

The overflow indicator is changed from output AND lines to primary 
lines. 

The LO indicator in C statements is suppressed. 

The specification of output spacing in console files is suppressed. 

MODIFICATIONS TO BE V ERIFIED 

The following conversion actions performed by the program may not be 
complete. They should be verified before compiling the converted source 

programs. 

• A warning message is issued to remind the user that an AMS Build 
Alternate Index Command must be executed after running a program in 
which an ESCS file with alternate index is created. 

• The stacker selection specified in I and O statements is ignored. 

• Files processed between limits and random, primary, display, 
demand, or table files are assumed not to be affected by an 
external indicator. 

• The record length in ADDROUT files is changed. 



• A warning message is issued to indicate that the contents of the 
♦ERROR field should be analyzed if M fields, record sequence 
checking, or record identification checking are used in the 
program. 

FUNCT ION S NO T CONVERTED 

The following functions are not converted. Either the conversion must 
be performed manually, or the System/3 source programs must be modified 
before conversion. 

• Table expansion is performed only for the first ten defined 
compilation tables. The eleventh table and those following must be 
modified manually if the data does not fit into 80-column 
statements. 

• A warning message is issued to indicate that the execution tables 
must be modified if the number of entries per record has been 
changed. 

• A warning message is issued when data files are converted from 
96-column to 80-column cards, and the defined fields exceed the new 
record length. 

• Combined files are not allowed. 

• Double I/O areas and blocking of SPECIAL files are not allowed. 

• A warning message is issued when H indicators are used. 

• The module used by SPECIAL files or by any files called by an exit 
routine must be rewritten. 

• Statements added using an Auto Report COPY statement must be 
cataloged in the R sublibrary of the DOS/VS source statement 
library. 

• Only 15 files are allowed per program. 

• Only one printer is allowed per program. 

• No console files, other than output or display files, are accepted. 

• No more than 11 skip positions are allowed in a printer listing. 

• Data cannot be printed on cards. 

• Warning messages are issued to indicate reserved words that must be 
changed. 

M ISCEL L ANEOUS C ONVERSION AIDS 

• A customizer adapts the programs to be converted to the System/3, 
System/370 or U300 configurations used. 

• Printer carriage control tapes are converted, and the cataloging of 
FCBs is prepared. 

• Files and data spaces are distributed on disk- 

• The execution statements of each program are listed. 



• Control statements to convert files to disk using magnetic tape as 
intermediate step are generated. 

• Execution job streams, including about 80% of sorts and file 
copies, are converted from System/S to System/370 or U300. 

MINIMUM CONFIGUBATICKS 

The minimum System/3, System/BTO or 4300 configurations required by the 
System/3 to DOS/VSE Conversion Aid International Field Program are given 
below. ^ 

SYSTEM/3 

The customizer components of the program require, in addition to the 
configuration needed to execute the source programs to be converted 
(System/3 Model 10 or 15) , one IBM 5HHH Disk Storage Drive or one IBM 
33U0 Direct Access Storage Facility, and one magnetic tape unit. 

The program conversion components require: 

One System/3 Model 8, 10, 12, cr 15 

A minimum of 16K bytes of partition core storage 

One data entry unit, any type 

One 80- or 96-column card punch, or one magnetic tape unit 

One printer, any type 

One disk unit, any type. 

The System/3 must be equipped with a DSM operating system and an RPG 
compiler. 

SYSTEM/370 CR 4300 FRCCESSCR 

To catalog the converted source programs, any System/370 or 4300 can be 
used, equipped with: 

• One 80- or 96-column card reader, one magnetic tape unit, or one 
Diskette Input/Output Unit 

• One printer 

• One IBM 3330 Disk Storage or one IBM 3340 Direct Access Storage 
Facility or one IBM 3310 or lEN 3370. 

In order to convert System/3 files using the conversion program, a tape 
unit or Data Import Feature is also required. 

The characteristics of the System/370 or 4300 must be those specified to 
the customizer components. The system must include work areas with 
cataloged labels in order to compile and execute the sort programs and 
the BUILD ALTERNATE INDEX command. 

IBM DOS/VSE RPGII, Licensed Program 5746-RG1 is required. To convert 
System/3 files using the control statements generated by the conversion 
program, VSAM support is required. 

An overall flowchart of the program is given in Figure 1. 
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JOB STREAM CONVERSION 
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INSTALLING THE PROGRAM 



The magnetic tape containing the System/a to DOS/VSE Conversion Aid 
International Field Program may te restored directly onto an IBM 5444 
Disk Storage Drive, or into the 5444 simulation area of a 3340. 

When the disk has been restored, it will contain: 

• An object library in which are cataloged the CST101 and CST102 
components (for a System/3 Model 10) and the CST151 and CST152 
components (for a System/3 Wodel 15E). These components make up 
the customizer, according to the System/3 model on which they are 
to be executed. The SUER93 subroutine is cataloged in the R 
Sublibrary. 

• A source library, in which is cataloged the source CST151 and 
CST152 components to be compiled in case a System/3 Model 15-C or 
15-D, is used in the customizer step. 

• A file containing all the conversion components and the routine to 
be cataloged in the System/370 or 4300 processor. 

CUSTOMIZING THE PROGRAM 

The customizer components are executed only once and modify the 
definitions of the different files used for conversion. In addition, 
they retrieve the conversion components from the 5444 disk and place 
them, together with the routines to be cataloged in DOS/VSE Relocatable 
Library , onto the medium specified in the SWITCH statement. These 
components can then be compiled and cataloged in the System/3 used for 
the conversion process. 

Output can be on 80- or 96-column cards, diskette, or magnetic tape. 

CATALOGING MODULE IN THE DOS/VSE REL OCATABLE LIBRARY 

The input job stream obtained as trial output from the customizer is a 

DOS/VSE SYSIN file that assembles and punches the WKVWXV module with the 

JCL to catalog it in the Relocatable Library. This module is written in 
DOS/VSE Assembler. 

Once the SYSIN has been executed, the obtained deck needs be executed 
also. 

SAMPLE PROBLEM 

The complete execution of the sample problem distributed with the 
program is given in Appendix C which also contains a listing of the 
sample problem as follows: 

• Input: 

Statements containing specifications for customization 

Input statements (OCL control statements, source programs, and 
data) . 
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Output : 

Converted source programs 

FCBs to be cataloged 

System/a OCL statements and DOS/VSE JCL statements to be used 
to convert disk files, using magnetic tape and Data Import 
Utility as an intermediate medium, and to define VSAM catalog 
and data spaces. 

Generated DOS/VSE JCL statements. 

Listing obtained after having executed the sample problem. 
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RUNNING THE PROGRAM 



After the source programs have been sustomized and cataloged, the actual 
conversion process can be started. Components CONV06 to CONV10 should 
be executed, if possible, only once during the conversion process in 
order to keep the number of printer carriage control tapes to a minimum 
and to avoid unwanted dualities in the allocation of SAM files. 

If the components CONV06 to CONV10 are executed a second time: 

• Make sure that SAM files located on each pack used in previous 
processes are exactly equal to the ones located in the second time. 
If this condition is not true, the automatic location assigned to 
SAM files in the second process can be different. 

• Delete the existing CONTROl file before executing the CONVOt 
component to avoid adding data to the end of existing data. 

• Enter the number of the first FCE not used in the previous 
conversion process in place of the number 000 or 001 for the CONVOU 
component when re-executed. 

If the components CCNVOO and CCNV01 are executed a second time, re-enter 
CONVOO control statements containing specifications of all files to be 
used in the conversion, even though some of the information may have 
already been entered. 

The CONV02 component is the only one that has to be executed for each 
source program to be converted. Components CONV03 to CONV06 are 
executed only once for all programs that have been accepted by the 
CONV02 component. 

The converted programs can refer to all or part of the files entered 
using the CONVOO component. If they refer to only a part of the files, 
components CONV03 to CONV05 will have to be executed several times, once 
for each grcup cf programs that refer to the files. The data for the 
different groups is added to the CONTROL file. At the beginning of each 
group of source programs, and before executing the CONV02 component, the 
PROGRAM file must be deleted to avoid adding programs following the 
previously converted ones. 

components CONVll to C0NV14 may be used as often as needed to convert 
job streams, as long as these job streams refer to files and programs 
described in the JCLFILE, S3LABE1, and T.ABEIS files. The CONVll to 
C0NV1U components do not update these files. 

The input job streams may not contain CALL statements to request 
cataloged procedures. All control statements for the program must be 
included in the job stream. 

INPUT 

To customize the source program before beginning the conversion process, 
the following data must be entered for the CSTI61 or CST151 component, 
depending on the System/3 model used and on the I/O medium indicated in 
the SWITCH statement: 

• A CNV record indicating the configuration of the System/3 on which 
the conversion is to be performed 
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• A FUT record indicating the configuration of the System/370 or U300 

• As many EQU records as required to specify the equivalences between 
System/3 devices used by the programs and the devices in the 
System/370 or 4300 configuration. 

As shown in Figure 1, file definition data (one record per file) must be 
provided fcr the CONVOO component. This and all other input must be on 
the input medium specified for the customizer. NAME-LABEL cards must be 
placed before the source program in the CONV02 component, followed by a 
// record. In all executions of the CONVOH component applying to one 
run of the CONVOO and CONV06 components, the first unused FCB must 
always have the same number. If the numbers are different, the number 
in the last execution of CONV04 is assumed. 

As input to the CONV07 component, the relationship between the physical 
disk units and the logical SYSXXX units must be specified. At the same 
time, and in the same statement, the Relative Position in which the disk 
space of the pack is allocated must be specified. 

The job streams to be converted are submitted as input to the C0NV11 
component. 



FORMAT OF CCNTRCI STATEMENTS 



C ONVOO Control Statements for Fi le Definition 



POSITION 
OR COLUMN 
1 
2-30 



IDENTIFICATION 

Identifier 
Label 



31-34 

35-38 
39 



Block length 

Record length 
File type 



40-m 



42-45 



Key length 
Key location 



DESCRIPTION 



System/370 file identification. In VSAM, 
the file identification must be coded as 
follows: 

• One to 29 characters: A to Z, 
Oto9, -, #, a, or$ 

• A period must follow each group of 
eight or fewer characters 

• No embedded blanks are allowed 

• The first character of each group 
must be alphabetic 

• The last character of the file 
identification cannot be a period. 

For other files, the first character 
must be alphabetic. Valid characters 
are A to Z, to 9, blank, -, ., #, a, 
and $. 

(For tape files) Block length must be a 
multiple of the record length. 
A number from 3 to 4096 
S sequential 
V SAM VSAM managed 
T tape 
K VSAM KSDS 
R VSAV. RSDS 
E VSAM ESDS 
A VSAM ESDS with alternate index 

(For I, K, or A files) A number less 
than or equal to 29, and less than or 
equal to the record length 
For I, K, or A files 
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U6-U7 

U8-U9 

50-52 
53-56 
57-62 
63-64 

65 



Percent of free 
space in 

control intervals 
Percent of free 
space in 
control areas 
logical SYSXXX 
units 

Validity period 
in days 

Estimated number 
of records 
Initials of the 
application 

Destination 



For K files 



For K files 



66-73 



System/3 label 



A number from 001 to 099 

If omitted, zero is assumed 

Based on this number, the size of the 

file is calculated 

The CONV01 listing of file occupancy is 

printed, sorted according to these 

initials 

Mandatory field. To generate REPRO 

statements to create a VSAM file or 

DITTO statements to create other files, 

an R must be entered. To generate Data 

Import Utility statements to create other 

files a U must be entered. Otherwise, 

an M must be entered. 

System/3 file identification 



CONV02 NAME-LABEL Statement 



POSITION 
OR COLUMN 



IDENTIFICATION DESCRIPTION 



1-8 
9-37 



File name 
Label 



System/3 file identification 
DOS/VSE Label identification 



CON V04 statement Containing First FCB Number 

POSITION IDENTIFICATION DESCRIPTION 
OR COLUMN 



1-3 



Number of first FCB 



CONV07 SYS-P ACK Relative Position Statement 



POSITION 


IDENTIFICATI' 


OR COLUMN 




1-3 


Logical unit 


U-9 


Pack name 


10-16 


Relative 




Position 



DESCRIPTION 



SYSnnn, corresponding to positions 

50 to 52 of the CONVOO statement 

Volume identification of the pack in which 

files assigned to the SYSnnn will be 

allocated. 

Number of relative track/block positions in 
which space allocated on the pack must start. 



Customizer (CST101 or CS T151) Input 



// SWITCH 10000000 
// SWITCH 01000000 
// SWITCH 00100000 



Control statements on 9 6-column cards 
Control statements on 8 0-column cards 
Control statements in 9 6-column diskette records 
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Customizer (CST102 or CST152) Output 



// SWITCH 00001000 
// SWITCH 00000100 
// SWITCH 00000010 
// SWITCH 00000001 



Program output on 96-column cards 
Program output on 80-column cards 
Program output on diskette 
Program output on magnetic tape 



In the System/3 UPSI, only one of the bits U1 , U2 , and U3, and only one 
of the bits U5, U6, and U7 may be set. The U8 bit may be set at the 
same time as one of the U5, U6 or U7 bits. 



GST 101 or CST151 CNV Statement 

'ATION DESCRIPTION 



POSITION 


IDENTI: 


OP COLUMN 




1-3 


CNV 


it-10 


MFCU1 




PEAD01 




READU2 




MFCI>C1 




DISKET 


10-17 


DISK 




DISKU5 




DISKUO 


18-24 


MFCU2 




TAPE 




MFCM2 




PEAD42 




DISKET 


25-31 


MFCU2 




TAPE 




MFCM2 




READU2 




DISKET 



32-36 



Identifier 

Conversion input device 



Conversion work files 



Device for output of CONV05 and CONV06 
components 



Device for output of CONV09, CONV10, and 
CONVm components 



Number of records in the WORKDSK file 



CST101 or CST151 FUT Statement 



POSITION 


IDENTIFI 


OR COLUMN 




1-3 


FUT 


4-7 


3330 




3340 




FBA 


8-9 


18 to 99 


10-11 


14 to 96 


12 


Y or N 


13-18 


3203-4 




3211 




3203 




5203 




1403 




3203-5 




PRT1 



DESCRIPTION 



Identifier 

System/370 or 4300 disk units 



Default forms length 
Default overflow line 
Use of POWER/VS 
System/370 or 4300 printer 
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CST101 or CST15 1 EQU Statement 

POSITION IDENTIFICATION DESCRIPTION 
OP COLUMN 



1-3 
4-10 



EQU 

MFCU1 

MFCU2 

PRINTER 

PRINT84 

CONSOLE 

blank 

DISK 

DISK45 

DISKUO 

TAPE 

SPECIAL 

CRT77 

READ01 

MFCN1 

MFCM2 

READU2 

DISKET 



Identifier 
System/3 



POSITION 
CR COLUMN 



IDENTIFICATION DESCRIPTION 



11-17 



18-21 
22-24 
25-27 

Notes: 



MFCU1 

MFCU2 

PRINTER 

CONSOLE 

blank 

DISK30 

DISKI40 

TAPE 

SPECIAL 

READ01 

READ05 

READ20 

READ25 

READ40 

READ42 

MFCM1 

MFCM2 

DISKET 

FBA 



System/370 or 4300 



r^aximum record length (required for 

printer and diskette) 

logical SYSXXX DOS/VSE device (required for 

all devices except DASD) 

Physical device address (required for all 

devices except DASD; used to create ASSGN 

statements) 



1. The 5HHH simulation area of a 3340 disk does not support random 
access to indexed files. Since the International Field Program 
uses random access to indexed files, this area cannot be used as 
conversion work area. Therefore, positions 10 to 17 of the CNV 
statement can be used only for an actual 544 4 disk unit. 
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2. If a Systeni/3 card reader punch is replaced by two different 
DOS/VSE devices, two EQU statements must be used, with the same 
code in positions i4 to 10 and different ones in positions 1 1 to 17. 

3. The first EQU statement read by the customizer will be considered 
as the definition of the input unit and the second as that of the 
output unit. If there is only one EQU statement, the code in 
positions 11 to 17 will be considered as the definition of the 
input/output unit. 

PROCESSING 

In the input to CONVOO, there must be one F statement for each labeled 
tape file or disk file used by the programs to be converted. If CONVOO 
is executed without error, CONV01 will be executed; if not, the control 
statements must be corrected and CONVOO rerun. 

When CONVOO and CONV01 have been executed without error, CONV0 2 must be 
executed for each program to be converted. The input data for CONV02 
includes a NAME-LABEL statement for each labeled tape or disk file used 
by the program, followed by a // statement and the source program to be 
converted. If a program is rejected (an explanatory message is 
displayed at the printer) , it will not be added to the file of converted 
programs and must be reconverted. 

When all the source programs have been accepted by CONV02, CONV03 to 
CONV05 can be executed one after the other without interruption. Input 
to CONV04 will include the number of the first FCB not used by former 
runs of CONV06. 

CONV05 produces the converted source programs, together with the control 
statements required to compile them and catalog them in the DOS/VSE. In 
addition, it produces a listing of the converted source programs, with 
the number of the corresponding error messages. The text of the 
messages is given at the beginning of each program listing. 

Messages numbered 25 and above are warning messages, and no action is 
required. However, a special processing routine for sequential files 
will be cataloged in the DOS/VSE Relocatable Library in response to 
message 38 or 55. 

Messages 1 to 25 require action of some kind. In some cases, the system 
response must be verified, and in others manual intervention is 
required. 

The converted source programs must be modified according to the 
appropriate messages before being compiled on the System/370. 

When CONV05 has been executed, CCNV06 is run to list the printer 
carriage control tape images and to prepare for cataloging the FCBs. 

From the SYS-PACK RELATIVE POSITION Statements, CONV07 produces a listig 
of file allocation per disk pack. The disk space is automatically 
allocated as follows: 

• Are located SAM files (in Label alphabetical order) without any 
space between a file and the next one, they are allocated at the 
specified Relative Position. 

• The disk space behind the one used by SAM files (if any) is 
dedicated to VSAM Data Space. 
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CONV09 and CONV10 provide the statements required to prepare the 
conversion of master files using data from the LABELS file. 

C0NV11 to CONVm convert the System/S OCL statements; the number of 
statements to be converted depends on the size of the STREAMS file. If 
C0NV11 terminates on an unexpected /*, /S, or /. , the remaining OCL 
statements must te deleted from the input file; otherwise, the System/3 
will execute them as a job. 

OUTPUT 

The output from the conversion aid program includes listings, messages, 
and miscellaneous output. 

LISTINGS 

The customizer produces no listings, unless errors are detected in the 
input statements. 

CONVOO produces a listing of control statement errors for file 
definition, in case the same data must be processed again. If the input 
data contains no errors, no listing is produced. 

CONV01 produces a listing of all the files defined in each logical 
SYSXXX file. The listing contains the name of the file, the number of 
records in the file, and the occupancy of the file on disk. 

CONV02 produces printed output only when errors are detected. If errors 
are detected, the source program being converted is not placed on disk. 

CONV05 produces a listing of the converted source programs, together 
with the messages indicating modifications to be performed. 

CONV06 provides a listing of all carriage control tape images, as well 
as a listing of the programs that use each control tape. 

CONV07 provides either a listing of errors or a listing of the files in 
each disk pack and a listing of the DLBLs, EXTENTS, and TLBLs of all 
files. It lists DLBLs and TLBLs, leaving file names blank, since the 
file name may be different in each program using the file. 

CONV09 lists a control statement dictionary to be used when executing 
the components of the program. It is assumed that the files used will 
be those specified in the NAME-LABEL statements for CONV0 2. The 
dictionary is classified by program name and includes: 

// ASSGN statements 

// PAUSE * MOUNT CARRIAGE TAPE xxx (for a 1403 printer without 
POWER/VS) 

// EXEC SYSEUFLD (with no 1403 printer and without POWER/VS) 

* $$ LST statement with FCE parameter 

DLBLs, EXTENTS, and TLBLs from the files to be used 

EXEC statement for the program 

AMS BLEINDEX statement if a VSAM ESDS file with alternate index is 
created. 
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CONV09 and CONV10 produce listings of converted statements to convert 
f iles- 

CONVIt provides a listing of the generated DOS/VSE JCL statements, 
together with short comments. Unconverted System/3 OCL statements are 
included, with warning messages indicating why that conversion was not 
performed. 
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MESSAGES 



CONV OO Messages 

LABEL MISSING 

INVALID LABEL CHARACTER OB SEGMENT LABEL 

INVALID BLOCK LENGTH 

INVALID RECORD lENGTH 

KEY LENGTH MISSING 

INVALID KEY LENGTH 

INVALID KEY LOCATION FOR THIS FILE 

LOGICAL SYS MISSING 

FREE SPACE FOR A NON KSDS FILE 

INVALID DESTINATION FILE CODE 

SYSTEM/3 LABEL MISSING 

INVALID FIRST CHARACTER LABEL OR LABEL SEGMENT 

BLOCK LENGTH MISSING 

RECORD LENGTH MISSING 

INVALID FILE TYPE 

INVALID KEY LENGTH FOR THIS FILE 

KEY LOCATION MISSING 

INVALID KEY LOCATION 

INVALID LOGICAL SYS 

NUMBER OF RECORDS MISSING 

INVALID RECORD LENGTH FOR DESTINATION R 

SYSTEM/3 LABEL INVALID 

CONV01 Messages 

DUPLICATED lAEELS 

SYSTEM/3 DUPLICATED LABELS 

PLEASE, CORRECT DUPLICATED LABELS AND REPEAT THE WORK 

gOIjyOJ_ .Messages 

MORE THAN 15 NAME-LABEL RECORDS 

FILE NOT PREDEFINED 

PROGRAM NAME INVALID 

H CARD MISSING 

INVALID FILE DEVICE 

FILE IS NOT IN NAME-LABEL RECORDS 

MORE THAN 15 FILES 

FILE NAME REPEATED 

MORE THAN ONE PRINTER FILE 

FILE ATRIBUTES DO NOT MATCH 

TABLE FILE CANNOT BE A KEYED FILE 

MORE THAN ONE ADDROUT OR BY ADDRCUT FILE 

ADDROUT WITHOUT FILE BY ADDRESS CR OPPOSITE 

THERE IS NO VALID F CARD 

ANY NAME-LABEL RECORD NOT USED 

ENTRY IN TABLE GREATER THAN RECORD SIZE 

TR RECORD MUST BE IN A CARD FILE 

FIELD END POSITION GREATER THAN RECORD 

SOURCE PROGRA.M CARDS OUT OF SEQUENCE 

THERE APE NO C CARDS 

ERRORS DETECTED IN SOURCE PROGRAM 

-CORRECT IT, AND REPEAT THE STEP 
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CONV 05 ^^essaqes 



1 COMBINED FILES ARE USED - MODIFY PROGRAM LOGIC TO ELIMINATE IT. 

2 CONSOLE FILES MUST BE OUTPUT OR DISPLAY - MODIFY PROGRAM LOGIC. 

3 PRIMARY, RANDOM, DEMAND, DISPLAY, TABLE OR LIMITS FILES MUST 
NOT BE CONDITIONED TO U INDICATOR - ASSUME NOT CONDITIONED 

t SPECIAL FILE MUST NOT BE BICCl^ED NOR TWO I/O AREAS. 

5 THE FILE HAS ADDITIONS BUT NO ADDS ARE SPECIFIED IN O CARDS. 

6 THE OBJECT TIME TABLE MUST BE MODIFIED TO FIT DATA IN NEW 
RECORD SIZE. 

'' M-FIELDS ARE USED - MAY BE NECESSARY TO CHECK THE *ERROR FIELD. 

8 SPECIAL SEQUENCE ARE SPECIFIED - MAY BE NECESSARY TO CHECK THE 
♦ERROR FIELD. 

9 NON IDENTIFIED RECORD CAN CANCEL THE PROGRAM - MAY BE NECESSARY 
TO CHECK THE *EPRCR FIEID. 

10 STACKER SELECTION SPECIFIED IN I CARD HAS BEEN SUPPRESSED - 
VALIDATE. 

11 INVALID OPERATION - SUPPRESS IT. 

12 REWRITE ASSEMBLER MODULE IN DOS/VSE ASSEMBLER. 

13 MORE THAN 11 SKIP POSITIONS ARE SPECIFIED - MODIFY THE PROGRAM. 

14 CARD PRINTING HAS BEEN CONVERTED TO COMMENT CARD - VALIDATE. 

15 STACKER SELECTION SPECIFIED IN O CARD HAS BEEN SUPPRESSED - 
VALIDATE. 

16 RESERVED WORD IS USED - MODIFY IT. 
A BLDINDEX AMS COMMAND MUST BE EXECUTED AFTER THE EXECUTION 
OF THIS PROGRAM. 

CONVERT THE SOURCE MODULE AND CATALOG IT IN THE R SUELIBRARY 
WITH THE SAME NAME. 

19 H INDICATORS ARE USED - THE PROGRAM CAN BE CANCELLED. 

20 THE COMPILATION TIME TABLE MUST BE MODIFIED TO FIT DATA IN 80 COLUMNS 

30 INQUIRY SUPPORT HAS BEEN SUPPRESSED IN H CARD. 

31 IP FORM POSITIONING HAS BEEN SUPPRESSED IN H CARD. 

32 DEBUG USE HAS BEEN SUPPRESSED IN H CARD. 

3 5 FILE NAME HAS BEEN SHORTENED TO SEVEN CHARACTERS. 
3 6 FILE NAME HAS BEEN MODIFIED. 
37 NEW TABLE FIIE. 

3 8 INCLUDED MODULE TO ACCESS BY RELATIVE RECORD NUMBER 

AN ESDS FILE. 

40 TABLE READ EY NEW TABLE FILE. 

41 MODIFIED NUMBER OF ENTRIES PER RECORD IN OBJECT TIME TABLE. 

42 MODIFIED NUMBER OF ENTRIES PER RECORD IN COMPILATION TIME TABLE. 

4 3 THE COMPILATION TIME TABLE HAS BEEN MODIFIED TO REDUCE 

RECORD SIZE 

45 L CARD HAS BEEN CONVERTED TO COMMENT CARD. 

46 L COMMENT CARD HAS BEEK ADDED. 

50 DECIMAL POSITION HAS BEEN ADDED TO AN ARRAY OR ARRAY 
ELEMENT IN I CARD. 

55 INSTRUCTIONS ADDED TO BRANCH TO RANDOM MODULE. 

56 CHAIN INSTRUCTION CHANGED TO CREATE AND RRDS RANDOMLY. 

57 THE SQRT HAS BEEN HALF ADJUSTED. 

60 OVERFLOW INDICATOR MUST NOT BE IN AND LINE - CHANGED TO 
PRIMARY LINE. 

61 CHANGED SKIP TO A LINE NUMBER BY SKIP TO A CHANNEL. 

62 ONE SPACE AFTER ASSUMED. 

63 ADD HAS BEEN SUPPRESSED IN O IINE. 

64 LO INDICATOR HAS BEEN SUPPRESSED IN O LINE. 

6 5 SPACES FOR CONSOLE LINE HAVE BEEN SUPPRESSED. 
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CONVO? Niessaqes 

ERRORS IN SYS - PACK RELATIVE POSITION CARDS 

SYS USED BUT NOT DEFINED 

SYS INVALID 

SYS USED MORE THAN ONCE 

RELATIVE POSITION MISSING 

NON-EQUAL RELATIVE POSITIONS TO SAME PACK 

SYS DEFINED BUT NOT USED 

CORRECT CARDS AND REPEAT THE WORK 

CONvm Messages 

FUNCTION NOT SUPPORTED 

THIS STATEMENT HAS NO EQUIVALENCE IN DOS/VSE 

NO INFORMATION ABOUT THIS PROGRAM 

UNEXPECTED END OF STEP 

ERROR IN O.C.I. 

FILE WITH NAME OR UNIT MISSING 

SORT OR COPY WITH ANY FILE-NAME MISSING 

SORT OR COPY WITH UNLABELED TAPE FlIE 

FILE NAME REFERENCES ONE FILE NOT PREDEFINED 

SORT HEADER CARD MISSING 

TAPE FILE WIHOUT FILE NAME 

TAPE SORTIN WITH MORE THAN ONE FILE NAME 

SORTIN WITH DIFFERENT TYPES 

OUTPUT RECORD LENGTH AND SPECIFIED RECORD LENGTH DO NOT MATCH 

ALTSEQ SPECIFIED AND ALTSEQ RECORDS MISSING 

MORE THAN ONE RECORD TYPE OR INCLUDE/OMIT SET, OR SEQUENCE ERROR 

INCLUDE AND OMIT BOTH PRESENT 

FORCED CONTROL FIELDS USED (F IN COIUMN 7) 

DATA CHARACTER FORCED USEE (V IN COLUMN 8) 

ZONE PORTION USED (Z IN COLUMN 8) 

DIGIT PORTION USED (D IN COLUMN 8) 

SUM FIELDS WITH MODIFIED lENGTH USED 

SCRTRS WITHOUT SUM FIELDS OR VICEVERSA 

SORT WITHOUT F SENTENCES 

SORT ADDROUT NOT ALLOWED WITH SAM FILE 

ERRORS IN COPY SPECIFICATIONS 

OMIT OR DELFT USED 

SELECT PKI USED 

COPYFILE STATEMENT BYPASSED 

OUTPUT OTHER THAN DISK, FILE, PRINT OR BOTH 

SELECT KEY WITH UNKEYED FILE 

* * * EXECUTION * * * 

* NOT CONVERTED * 

* % * * INSERT ANY DATA HERE * * * * 

* * TEXT SHORTENED IN NEW JOB STREAM * * 

* STATEMENT BYPASSED IN NEW JOE STREAM * 
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CST101 and CST152 Messages 

CNV OR FUT CARD DUPLICATED. 

DEVICE INVALID, 

INVALID KUMEER CF RECORDS. 

FORM LENGTH OR OVERFLOW LINE INVALID. 

INVALID POWER SPECIFICATION. 

S/3 DEVICE INVALID. 

S/3 DEVICE DUPLICATED. 

DOS/VSE DEVICE INVALID. 

INVALID DEVICE CORRESPONDENCE. 

INVALID MAXIMUM RECORD LENGTH. 

INVALID LOGICAL SYS. 

INVALID PHYSICAL ADDRESS. 

CNV CARD MISSING OR FUT CARD MISSING. 

READER DEVICE MISSING. 

PRINTER DEVICE MSSING. 

DISK DEVICE MISSING. 

ONE U5-U8 INDICATOR ON NEEDED. 

CARD OTHER THAN CONV. FUT OR EQL 

ONE U1-U3 INDICATOR MUST EE CN 

ONLY ONE U5-U7 ON INDICATOR ALLOWED. 

ANY ERROR DETECTED - REPEAT THE STEP. 



MISCELLANEOUS OUTPUT 



Cust omized Pr ograms 

CONVOO to CONV 14 are placed on the output medium specified in the SWITCH 
statement. Each component is preceded by the statements: 

// CALL RPG,R1 
// RUN 

The sample problem to be executed is placed on the same medium, 
following the last component. 

The sample problem will be followed by the routines to be cataloged in 
the System/370 or 4300. If two bits are set in the SWITCH statement 
(one of these bits must be bit 8) , the program components will be placed 
on cards or diskette and on magnetic tape. 

Although programs cannot be cataloged in a System/3 from magnetic tape, 
the customizer supports tape output in order to speed up customization. 
The tape may be converted offline to a different medium. 
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Conve rted Progr ams 

CONV05 places the converted source programs, together with the control 
statements needed to compile and catalog them, on the output medium 
specified in the customizer. An image of this output is produced as a 
listing. 

Before the converted programs are compiled, system messages must be 
consulted and any required modifications or manual conversion performed. 

F orm Control Buffers 

CONV06 produces job streams to be cataloged on the DOS/VSE C. I. 
Library, The phases correspond to the FCEs generated by CONV06, except 
when the carriage control tape is for a 11403 printer and POWER/VS is not 
used. 

Aids for File Conversion 

For files to be copied from System/3 to System/370 or H300 via tape, 
CONV09 generates: 

• STINIT statements to initialize the tape reels. 

• COPY statements to copy froir disk to labeled tapes, using the 
System/3 SCOPY program. 

For VSAM files, CONV10 always generates: 

• AMS statements to define the master catalog. The name of the disk 
pack must be added to the EXTENT statement and to the VOLUME 
parameter of the AMS statement. The starting track/block of the 
file must be added to the EXTENT statement. 

• AMS statements to define data spaces. 

• AMS statements to define clusters and the alternate index and its 
corresponding path in ESDS files with alternate index. 

• AMS statements to convert from tape to disk with REPPO and BLDINDEX 
statements for ESDS files with alternate index (if file conversion 
was requested in CONVOO with an R in column 65) . 

For SAM and SAM VSAM managed files, CONV10 generates: 

• AMS statements to define managed non VSAM files. 

• AMS statements to convert from tape to disk with REPRO (if file 
conversion was requested in CONVOO with an R in column 65) . 

• Data Import Utility statements to convert from System/3 Disk 33U0 
to U300 Disk. (If file conversion was requested in CONVOO with 

a U in column 65) . 

Normally, only permanent data files (master files, tables, and so on) 
are converted; intermediate or work files are not. 
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Job Str eam s 

The output from CONVIU is a DOS/VSE job stream containing all JCL 
statements needed to execute source programs, sorts and REPRO (AMS) . 

To execute the SORT program, ECS/VSE must contain the standard 
definition of the SORTWK1-SYS001 work area. In addition, if not enough 
real storage is available for the AMS BLDINDEX, DOS/VSE must contain the 
standard definition of the IDCUTI and IDCUT2 areas. 

WCRK_FILES 

The WORKDSK file is created by CCNVOO and contains information on all 
user files. 

Tt is used by CONV01 and CCNV02 and then by CONV07. The LABELS file is 
created by CONV01 and is used by CONV07, CONV08, CONV09, CONV10, and 
C0NV11 . 

The PROGRAM file contains a record for each statement in the source 
programs being converted. The records are preceded by a record 
containing pointers to the address of the first statement of each type. 
The PROGRAM file is created during the first execution of CONV02. 
During the following runs, records are added to the file. After having 
been used by CONV03 to CONV05, the file is no longer needed and is used 
by CONV06 as a work file for CCNTRCL file records. 

The CONTROL file, created and completed by CONVOU and used by CONV06, 
contains a record for each source program file, plus a record for each 
printer file. The CCLFILE file, created by CONV06 and used on request 
by CONV0 8, contains a record for each source program file. 

The S3LABEL file is a table that indicates the relationship between 
System/3 labels and DCS/VSF labels. It is created by CONV01 and is read 
at random by CONV08 and C0NV11. 

The JCLFILE file has three types of records. One contains information 
needed to create ASSGN statements, another the information needed to 
create DLBl and EXTENT statements, and the third contains card images. 
The file is created by CONV08 and used by CONV09 and C0NV11. 

The STREAMS file is created by CCNV11 from the input job streams to be 
converted and is updated by CCNV12 and C0NV13. It serves as input to 
C0NV1U. 



Detailed information on the contents of these file 
Appendix B. 



s IS given m 



SIZE OF WORK FILES 

The size of the different work files is shown in Figure 3. 
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EXECUTING THE CCNVERTED PPOGRfiiyiS ON THE S YSTEM/37 

When the converted prograirs have been modified, if it is necessary (see 
CONV06 messages 1 to 29) they must be compiled using the appropriate RPG 
II compiler. Before being link edited (if CONV05 messages 38 or 55 have 
been printed) , the WKV routine must be cataloged. 



FILE 


LENGTH 
(IN BYTES) 


NUMBER CF RECORDS 


WORKSDK 


128 




One for each source program file, plus one 
for each statement of the longest source 
program to be converted, plus 20 


PROGRAM 


128 




One for each source statement of the program 
to be processed in one run by CONV03 to 
CONV05, plus 20 for each program 


LABELS 


128 




One for each defined file, plus one for each 
volume containing VSAM files 


CONTROL 


128 




16 for each converted program 


OCLFILE 


64 




Same nuirber as the CONTROL file 


S3LABEI 


64 




One for each defined file 


JCLFILE 


128 




Lifficult to estimate; however, 45 times 
the number of programs to be converted will 
be enough in most cases 


STREAMS 


128 




Three times the number of statements in the 
job stream will be enough in most cases 



L 



J 



Figure 2. Size of Work Files 



The master files must be created in the Systera/370 or 4300 with or 
without the use of the conversion statements produced by the program. 

Finally, the execution job stream produced by C0NV14 (completed, if 
necessary) is executed on the System/370 or 4300. 
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APPENDIX A. DESCRIPTION OF INDIVIDUAL COMPONENTS 



T HE C ONVOO COMPONENT 

The CONVOO component creates the WOPKDSK direct access file and reads 
file definition statements. The input consists of file definition 
records, and output is the WORKDSK direct access file and an error 
listing. 

File definition records of labeled disk or tape files are stored on the 
direct access file. File definition records are read and checked for 
errors; if no errors are detected, the records are placed on the WORKDSK 
file together with information on disk space, size of control intervals 
for VSAM files, and so on. 

When CONVOO and CONV01 have been executed without error, they need not 
be executed again. Errors checked in file definition statements 
include: 

Missing labels 

First character of label or label segment not valid 

Invalid character in label or label segment 

Missing block (tape files) 

Invalid block (non-tape file or block length not multiple of record 
length) 

Missing record length 

Invalid record length (not between 3 and t096) 

Invalid file type (not S, V, T, K, R, E or A) 

Invalid key length (greater than 29 or greater than record length) 

Missing key location (K or A file) 

Invalid key location (E, R, S, V or T file) 

Invalid key location (does not correspond to record length and key 
length) 

Invalid logical SYSXXX (100 or greater) 

Available space for non-KSDS file 

Number of records missing 

Creation code invalid (neither N nor R or U) 

Missing System/3 label 

Invalid System/3 label 

Missing key length 

Missing SYSXXX. 
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THE_CON V01 COMPONENT 

The CONV01 component checks duplicate labels and creates the LABELS 
file. The input consists of the WORKDSK and W0RKDS1 direct access 
files, and the output is the WCBKDS1 direct access file, the LABELS 
indexed sequential file, the S3LABEL indexed sequential file, and a 
listing of files, file sizes, duplicate labels, duplicate System/3 
labels, and logical SYSXXX devices used. 

If two names are found in a file, the first is the name given to the 
file definition statement, and the second is the disk label (if 
different from the first name) . 

CONVOI uses the records of the WORKDSK file according to two file 
definitions, one sequential and one random. It begins by sorting the 
records by label, in order to find duplicate labels and to create the 
indexed LABELS file. 

Records are then sorted according to: 

• Initials of the application 

• Logical SYSXXX device 

• File type 

• Label. 

This is done in order to set up a file list and to establish disk 
occupancy, both in the desired order- 

The component lists the files within each application that are used by 
logical SYSXXX devices. It then sorts the records again by System/3 
label to check for duplicates and to create the indexed S3LABEL file. 

Finally, CONV01 produces a listing of the logical SYSXXX devices used. 

If duplicate labels are detected, they should be corrected and both 
CONVOO and CONV01 executed again. 

THE CONV02 COMPONENT 

The CONV02 component reads and checks System/3 source programs; if no 
errors are detected, the source programs are added to the PROGRAM file. 
The input consists of NAME-LABEL statements, a // statement, and 
statements of the source program plus the WORKDSK direct access file. 
The output is the WORKDSK direct access file, the PROGRAM file 
containing all the source programs to be converted, and an error 
listing. 

CONV02 must be executed without error, once for each source program to 
be converted. It reads the source program, preceded by NAME-LABEL 
records and the // record, and places it on the WORKDSK file, checking 
for possible errors. If no errors are detected, the source program is 
added to the PROGRAM file. 

For each source program, the following records are created in the 
PROGRAM file: 

• Type 1 record: pointers to the program 

• Type 2 record: names of the files used in the program 

• Type 3 records: one for each NAME-LABEL record read 

• Type 4 records: one for each source statement read 
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Type 5 records: one for each source statement added to the PROGRAM 
file (new table files, L statements, new I statements, new C 
statements, and table expansion during compilation) 

Type 6 record: /* statement 

Type 7 record: for U statements or Auto Report /COPY statements. 

ource program errors that make conversion impossible include: 

More than 15 NAME-LAEEl records 

NAME-lABEl record referring to an undefined file 

Disk file with no NANE-IAEEI record 

Attributes of disk or tape file do not match defined file 

H statement missing 

Program name invalid 

File name repeated 

More than 15 files 

More than one printer file 

Invalid device for a file 

More than one addrout or by addrout file 

Addrout without file by addrout or viceversa 

There is no valid F statement 

NAME-LABEL record refers to a file not used in the program 

Final field position greater than record length 

Source statements out of sequence 

O statements missing 

Table file cannot be a keyed file 

TR records must be in a card device 

Length of entry in compilation table greater than 80. 

If errors are detected, they should be corrected and the job repeated. 
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THE CO NV03 COMPONENT 

The CONV03 component partially modifies programs in the PROGRAM file. 
Input includes the sequential PROGRAM file and the PROGR file, the 
PROGRAM file with random access by relative record number. Output is 
the updated PROGR file. 

CONV03 makes the following modifications, as necessary: 

Enlarges the first ten compilation tables if data occupies more 
than 80 bytes per record 

Creates new table files when more than one execution table is 
assigned to a file 

Modifies the E statement from execution tables or arrays in case 
changes are made to the number of entries per record, indicating 
that the table has to be modified 

Places NS in positions 15 and 16 of the look-ahead record 

Deletes stacker selection specified in I statements 

Checks for more than 11 skip positions 

Shortens or otherwise modifies the names of the files and places 
the new names in the F, E, I, C, and O statements 

If record length is changed, updates the E statements with the 
number entries per new record 

Converts I statement to comments or, if there is a printer file 
creates a new 1 comment statement 

In O statements, changes the skip to channel number 

Assumes one space after printing in printer lines without space or 
skip 

Erases ADD character in additions to ESDS files 

Changes the overflow indicator in statements from AND line to 
primary line 

Detects and flags additions files that are defined when no record 
additions are specified for the file 

Issues a warning message when sequence control of records is 
performed 

Issues a warning message when identification checking is performed 

Converts printer commands to write on cards to comment statements 
and issues a message 

Issues warning messages about the use of reserved words in E, I and 
O statements 

Issues warning messages about the use of H indicators in I and O 
statements 

Removes LO indicators from C statements and issues a warning 
message about their use 
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• Deletes spaces from the output lines to console files 

• Checks indicators used, and locates one unassigned indicator 

• Relocates pointers to indicate the beginning of files rather than 
the beginning of programs. 

THE CONVOa COMPONENT 

The CONVOU component partially modifies source programs in the PROGRAM 
file. Input includes the CARD file with a record indicating the number 
of the XXXX FCB to generate and the sequential PROGRAM file with random 
access by relative record number. Output is the updated PROGRAM file 
and the sequential CONTROL file. 

CONVOU makes the following modifications, as necessary: 

Removes options from the H statement that are not used in DOS/VS 
RPG II 

Changes file definition F statements according to the 
characteristics of the files 

Flags the console file if it is not an output or display file 

Flags combined files and issues a message to warn the user that the 
program should be modified to avoid them 

Primary, random, demand, display, table/array, and limit files 
cannot be conditioned by external indicators. References to 
external indicators are flagged, and the corresponding files are 
not affected. 

Flags the use of a dcuble I/O area or a block in special files 

Requests rewriting the module used by special files 

Issues a warning message when an IMS BLINDEX command must be 
executed following program execution, if an ESDS file is created 
with an alternate index 

Changes record length in ADEROUT files 

Flags the inclusion of an access module by relative record number 
for VSAM ESDS files 

Updates the added C statements to branch to the routine for random 
processing for VSAM ESDS files 

Updates C statements to create random access RRDS files 

Places decimal positions in the arrays or array elements defined in 
I statements 

Places an H in position 53 (half adjust) for SQRT operations 

Detects and flags invalid operation codes 

Issues a warning message when an EXIT to a routine in System/3 
Assembler language must be rewritten in DOS/VSE Assembler language. 
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• Issues warning messages about the use of H indicator in C 
statements 

• Issues warning messages about the use of reserved words in C 
statements 

• Resumes warning messages used in each program and updates with this 
information the record type 2. 

The component creates records and adds them to the CONTROL file, 
together with information to be used later. This information includes a 
type A record for each file defined and a type B record for each printer 
file with a forms definition. 

The CARD file contains the number of the first FCB to be generated. Its 
purpose is to prevent creating several FCBs with the same name, when 
programs are converted in groups. 

THE CONV05 COMPONENT 

The CONV05 component places the converted source programs on the 
specified output medium and lists them on the printer. Input is the 
seguential PROGRAM file, and output is the SOURCES file of source 
programs on 80- or 96-column cards, diskette, or magnetic tape and 
listings of the source programs and detected errors. 

CONV05 reads the PROGRAM file, places the source program statements in 
the SOURCES file with the JCL statements for compilation and link 
editing, and lists them on the printer. If the use of POWER/VS is 
specified, the component also creates JECL statements. 

Warning and action messages for each program are also listed. 

THE CONV06 COMPONENT 

The CONV06 component creates FCBs, lists them, and indicates the 
programs in which they are used. Input is the seguential CONTROL file 
and the PROGRAM work file, and output is the PROGRAM work file, the 
SOURCE file of FCBs on 80- or 96-column cards, diskette, or magnetic 
tape, the indexed seguential CCLFILE file of execution control cards, 
and a listing of the created FCBs and the programs in which they are 
used. 

The CONV06 component performs the following functions: 

Reads the CONTROL file and places its contents on the PROGRAM file, 
using the PROGRAM file as a work file throughout execution 

Sorts data in the PROGRAM file by record type, form length, 
overflow line number, and line channel numbers 1 to 1 1 

Reduces to a minimum the number of FCBs to be generated 

Creates form images in source program form and produces the JCL and 
JECL statements required to assemble and link edit them 

Lists the created carriage control tape images and indicates the 
program in which they are used 

Sorts data by program name, order number, and relative record 
number 
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• Creates the ordered indexed sequential OCLFILE file 

• Numbers the created FCBs, starting with the number specified in the 
input to the CONVOU component. 

THE COMV07 CONJPCNENT 

The CONV07 component distributes defined files in disk packs and assigns 
the first relative track/block to SAM files. Input is the assignement 
statements relating the logical SYSXXX devices used in CONVOO to the 
disk packs and to the relative position in which the disk space must be 
located on each pack and the WORKDSK file of file definitions sorted by 
System/3 label. Output is the WCRKDSK work file, the indexed LABELS 
file with the disk location of files and data spaces and two listings; 
the first one is a list of files distributed among the disk packs, the 
second one is a listing of DLBLs and TLBLs. 

CONV07 reads SYS-PACK-REL. POSITION statements and if an error is 
detected in these statements, the component should be executed again. 

THE CONV08 COMPONENT 

The CONV08 component creates JCIFILE file. Input is the sequential 
OCLFILE file of System/3 CCL statements, the indexed LABELS file of file 
definitions and the indexed S3LABEL file of relationships between 
System/3 and DOS/VSE labels. Output is the indexed JCLFILE file of 
DOS/VSE execution control statements. 

CCNV08 creates the JCLFILE file containing JCL statements required to 
execute each converted program. The file is indexed, using as key the 
name of the program plus three digits {from 00 to nnn) . 

THE CONV09 COMPONENT 

The CONV09 component produces a listing of JCL statements required to 
execute the converted programs and System/3 COPY statements with the 
corresponding listing of these statements. 

Input is the indexed JCLFILE file of execution JCL statements, and the 
indexed LABELS file of file definitions, and output is a listing of JCL 
statements, the COPY statements and a listing of the generated 
statements. 

The JCL statements are classed by program name and include: 

• // ASSGN statements 

• FCB printer statements, depending on the printer to be used and on 
whether POWER/VS is to be used: 

// PAUSE ♦ MOUNT CARRIAGE TAPE xxx (for 1l»03 with POWER/VS) 

// EXEC SYSBUFLC (no m03, no POWER/VS) 

* $$ LST (nc POWER/VS) . 

The COPY statement, generated to those files defined with an R in column 
65 in CONVOO, include: 

• The STINIT statements needed to initialize the tapes 
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• The System/3 $COPY tc copy disk sequential or indexed files to 
labeled tape files with a block length multiple of record length, 
but not greater than H096. 

THE CONV10 COMPONENT 

The CONV10 component generates A^(S commands and Data Import Utility 
statements and their corresponding listings. 

CONV10 processes the indexed LABELS file of files definitions twice 
sequentially and generates: 

• Master Catalog definition with the following data missing: 

First relative track/block of the EXTENT 

Pack name of the EXTENT 

Pack name in AMS (data for the VOLUME keyword) 

• Data Space definition 

• Definition of clusters 

• Definition of alternate index and its corresponding path for ESDS 
files with type A 

• If the file definition statement used by the CONVOO component 
contained an R in position 65, it generates REPRO statements to 
copy the file from tape to disk. If the file is an ESDS type A, it 
creates the corresponding BUILD INDEX statements 

• If the file definition statement used by the CONVOO component 
contained a U in position 6 5, it generates Data Import Utility 
statements. 

THE CON Vn COMP ONENT 

The C0NV11 component reads Systeir/3 job streams and places them in the 

STREAMS file. Input includes the CARDS file of System/3 OCL statements, 

and the random access JCLFILE, S3IAEEL, and LABELS files. Output is the 

STREAMS file of partially converted OCL statements. 

C0NV11 records each System/3 OCL statement in its original format and 
creates the corresponding DOS/VSE job control statement. Sort and copy 
statements are recorded in their original System/3 formats, to be 
converted in later steps. 

/*, /&, and /. statements must be changed to */, S/r and ./ before 
executing CCNV11 in order to avoid an unwanted end-of-step. If an EOJ 
statement is not changed, C0NV11 can be executed again using the data 
cards not yet processed. 

C0NV11 builds DLBL and TLBL statements from information in the following 
files: 

• JCLFILE, statements needed to execute each program 

• S3LABEL, linkage to the LABELS file 

• LABELS, information concerning files for programs executed using 
other files. 
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THE C0NV12 COMP ONENT 

The C0NV12 component converts System/3 sort programs to DOS/VSE sorts. 
This is done by processing the STREAMS file created by C0NV1U. 

Input is the random access STREAMS file, and output is the same file 
updated with the necessary job streams. 

A System/3 sort program cannot be converted if one of the following 
conditions exists: 

Errors in CCl statements 

References to an undefined file 

Name of input or output file omitted 

Specified and actual output record length not the same 

ALTSEQ specified and corresponding records missing 

More than one record type or INCIUDE/OMIT set 

INCLUDE and OMIT both present 

Forced control fields (F in position 7) 

Forced data character (V in position 8) 

Zone portion used (Z in position 8) 

Digit portion used (E in position 8) 

References to a keyed outupt file 

Summary Sort without SUM fields or SUM fields in non-summary sort 

Sort without F statements. 

In order to execute the converted sort programs, standard label 
information must be cataloged for work files and permanent logical 
device assignments should be made: 

// DLBI SORTVgK1,0,SD 

// EXTENT SYS001, 

ASSIGN SYS001, 

If a numeric field is defined as D, it must be changed to C or U to be 
converted; sorts using the digit portion are not converted. 

THE C0NV13 COMPONENT 

The C0NV13 component converts System/3 copy programs to DOS/VSE AMS 
REPRO command. Input is the random access STREAMS file, and output is 
the updated STREAMS file. 

C0NV13 processes the STREAMS file created by CONV11 and CONV12. 

A System/3 copy program cannot be converted if one of the following 
conditions exists: 

Errors in OCL statements 

References to an undefined file 

Processing of unlabeled tape file 

Name of COPYIN file omitted 

Error in copy specifications 

OMIT or DEIET option used 

Select PKI used 

COPYFIIE statement omitted 

Output file other than disk, printer, or both 

COPYO file name omitted for output file. 

AMS REPRO is used to copy files. 
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™E_C0NV1U_C0MPCNENT 

The C0NV1U coniFonent creates the DOS/VSE job stream and lists it. Input 
xs the sequential STREAMS file, and output is the DOS/VSE job stream 
statements and a listing of all statements, converted and unconverted. 
Unconverted statements are accompanied by comments to explain why they 
were not converted. Each step read by C0NV1U is listed. 

hv rnmni^ rnlVA' *^^ ^'"^^'^'^^ ^^^^ "^"^^ ^^^^ '^^^^ ^^^^t«<3 and updated 
by C0NV11, C0NV12, and C0NV13. 

Positions 1 and 2 of each record of the STREAMS file contains one of the 
values shown in Figure 3. '«= ^j- ^n^ 



r 

I After execution of 


C0NV11 




Before 


execution 


of 


C0NV1U 1 






Ste^ 


converted 


Step 


nc 


3t converted | 


1 10 


10 




1 1 1 


1 11 






11 








1 1 1 


1 12 






16 








1 1 1 


1 13 






15 








11 1 


1 It 






15 








11 1 


1 15 






15 








16 1 


1 16 






16 








16 1 


1 17 






17 








1 1 1 


1 18 






10 








11 1 


1 19 






10 








11 1 


1 2n 






2n 








2n 1 


1 3n 






3n 








5n 1 


1 Un 






Un 








5n 1 


1 5n 






5n 








5n 1 
















1 16, 2n, 5n Ignored 
















1 10 load 
















1 15 DOS/VSE 


forirat 


(created and 


listed) 








1 17 listed, 

L 


but not 


created (statement 


omitte 


1 



Figure 3. Contents of Positions 1 and 2 of Records of STREAMS File 
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APPENDIX B. LAYOUT OF RECORDS OF MAJOR FILES 



WORKDSK FILE (DIRE CT ACCESS, LEN GTH 128) 

TYPE 1 = A (CONVOO, CCNV01, CCNV02, CONV07 components) 

1 A identifier 

2-6 last relative record 

7-107 logical SYSXXX device used 

Type 1 = B (CONVOO, CONV01, CONV02, CONV07 components) 

1 E identifier 

2-30 label 

31-33 Block size or control interval size (packed) 

34-36 Record size (packed) 

37 File type 

38-39 Key length 

40-42 Key location (packed) 

43-44 Percent free control intervals 

45-46 Percent free control areas 

47-49 Logical SYSXXX device 

50-53 Validity period in days 

54-57 Number of records (packed) 

58-59 Application initials 

60-63 Number of records in prime data area (packed) 

64-67 Number of records in free space of control 

intervals (packed) 
6 8-71 Number of records in independent free space of 

control area (packed) 
72-74 Number of data records in control area (packed) 
75-77 Number of index records in control area (packed) 
78-80 Number of alternate index records in control area 

(packed) 
81-82 Number of control intervals per control area 

(packed) 
83-84 Number of free control intervals per control area 
85-88 Number of data control intervals (packed) 
89-92 Number of index control intervals (packed) 
93-96 Number of alternate index control intervals (packed) 
97-100 Number of data tracks/blocks (packed) 
101-104 Number of index tracks/blocks (packed) 
105-108 Number of alternate index tracks/blocks (packed) 
112 Destination 
113-120 System/3 label 
125-128 Index control interval size (packed) 
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IfiBELS FILE (INDEXED SE<gUENTIfil, LENGTH 128) 

Type 1 = alphabetic (CONV01, CONV08, CONV09, CONV10, C0NV11, components) 

1-29 Label 

30-32 Block size or control interval size (packed) 

33-35 Pecord length (packed) 

36 File type 

37-38 Key length 

39-U1 Key location (packed) 

42-43 Percent free control intervals 

44-45 Percent free control areas 

46-48 Logical SYSXXX device 

49-52 Validity period in days 

53-56 Number of records (packed) 

57-58 Application initials 

59-62 Number of records in prime data area (packed) 

63-66 Number of records free space of control 

intervals (packed) 

67-70 Number of records in free space of 

control area (packed) 

71-73 Number of data records in control area (packed) 

74-76 Number of index records in control area (packed) 

77-79 Number of alternate index records in control area 

(packed) 

80-81 Number of control intervals per control area (packed) 

82-83 Number of free control intervals per control area 

84-87 Number of data control intervals (packed) 

8 8-91 Number of index control intervals (packed) 

92-95 Number of alternate index control intervals (packed) 

96-99 Number of data tracks/blocks (packed) 

100-103 Number of index tracks /blocks (packed) 

104-107 Data relative track/block (packed) 

111 Destination 

112-119 System/3 label 

120-125 Pack name 

Type 1 = (CONV01, CCNV07, CCNV10 components) 

1 identifier 

2-4 Logical SYSXXX device 

32-35 Pack name 

36-42 Relative track/block position 

43-49 Number of tracks/blocks per data space. 
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PPOGPA^; FILE AKD CCNV02 WOPKDSK FILE (LENGTH 128) 

Type 1 = 1 (CONV02, CCNV03, CCNV04, CCNV05, components) 



Type 



1 

2-U6 

2-6 

7-11 

12-16 

17-21 

22-26 

27-31 

32-36 

37-41 

U2-U6 

U7-96 

U7-51 

52-56 

57-61 

62-66 

67-71 

72-76 

77-81 

82-86 

87-91 

92-96 

97-101 



102-106 



102-103 
107-111 



1 identifier 

Relative record number of first statement 

H statement (CONV02, CONV03, CONV04, CONV05) 

F statement 

E statement 

L statement 

I statement (CONV0 2, CONV0 3, CONVOU, CONV0 5) 

C statement 

C-LX statement 

C-SR statement 

C statement 

Relative record number of first statement in table 

1 

2 

3 

U 

5 

6 (CONV0 2, CONV0 3, CONV0 5) 

7 



128 



9 

10 

Relative record 

number of /* 

statement 

Relative record 

number of last record 

of table 10 

Free indicator 1 

Relative record 

number of last 

record of source 

program 

1 if ESDS file accessed via relative record number 



(CONV0 2, CONV0 3, CONVOU) 



(CONV0 2, CONV03 -- input) 



(CONV0 3 -- output, CONV04) 
(CONV02 — output, CONV03, 
CCNVOU, CONV05) 



1 = 2 (CONV02, CONV03, CONVOt, 


CONV0 5 components) 




1 


2 identifier 






2-121 


Names of files used 
in program 


(CONV0 2, CONV0 3) 




2-9 


1 






10-17 


2 






18-25 


3 






26-33 


4 






34-41 


5 






42-49 


6 






50-57 


7 






58-65 


8 






66-73 


9 






74-81 


10 






82-89 


11 






90-97 


12 






98-105 


13 






106-113 


14 






1 14-121 


15 






2-66 


Errors detected in 
program 


(CONV0 4, CONV0 5) 




122 


Auto Report 


(CONV0 2, CONV04, 


CONVO 5) 


123-128 


Program name 


(CONV02, CONV04, 


CONV05) 
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Type 1 = 3 (CONV02, CONV03, CONVOU, CONV05 components) 



1 3 identifier 

2-30 label 

31-33 Block size or control 

interval size 
34-36 Record length 
37 File type 
38-39 Key length 
40-42 Key location 
4 3-44 Percent free control 

intervals 
4 5-46 Percent free control 

areas 
47-49 Logical SYSXXX device 
104-111 File 
113-120 Systeni/3 Label 



(packed) 
(packed) 



(packed) 



(CONV0 2) 
(CONV02, CONV04) 

(CONV0 2, CONV0 4) 
(CONV02, CONV04) 
(CONV0 2, CONV04) 
(CONV0 2) 
(CONV02) 

(CONV02) 

(CONV02, CONV04) 

(CONV0 2, CONV0 3, CONV0 4) 

(CONV0 2, CONV0 4) 



Type 1 = 4 (CONV02, CONV03, CONV04, CONV05 components) 



1 4 identifier 

2-81 Source program statement 

82-101 Flagged errors 

92-97 Table statement (if 

present) 
102 If RAF present 
104-105 Record length in F 

statement 
106-124 Information about F 

statement 
106-108 Old entry length 
109-111 Old record length 
112-114 Old number of records 
115-117 New number of entries 

per record 
118-120 New record length 
121-123 New number of records 
124 Flag 20 
124-128 Relative record number 

or record type 3 in F 

statement 



(CONV0 2 and CONV0 3 
CCNV04, CONV05) 
(CONV0 3 -- input) 

(CONV0 3, CONV04) 
(CONV04) 



— output. 



(CONV02 
(CONV0 2 
(CONV0 2 
(CONV02 
CONV04) 
(CONV02 
(CONV0 2 
(CONV02 
(CONV0 3 



and CONV0 3 

and CONV0 3 - 

and CONV0 3 - 

and CONV0 3 - 



- input) 

- input) 

- input) 

- input, 



and CONV0 3 — input) 
and CONV0 3 — input) 
and CONV0 3 — input) 
— input, CONV04) 



Type 1 = 5 (CONV02, CONV0 3, CONV04 components) 



1 


5 identifier 






2-81 


If blank, source 
statement added 


(CONV0 2, CONV0 3, 


CONV04) 


7 


If F, F statement for 


(CONV0 2) 






new table file 






16-17 


IT 






82-101 


Flagged errors 


(CONV0 4) 




82-83 


1 






84-85 


2 






86-87 


3 






88-89 


4 






90-91 


5 






92-93 


6 






94-95 


7 






96-97 


8 






98-99 


9 






100-101 


10 
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Type 1 = 6 (CONV02, CCNV03, CCNV05 components) 

1 6 identifier 

2-3 /* — last source program statement 

Type 1 = 7 {CONV02, CCNVOt components) 

1 7 identifier 

2-81 // COP^ or Auto Peport control statement 

82-83 Flag 18 



H5 



Type 1 = A (CONV06 component) 

1 A identifier 

2-7 Name of source program 

8-9 Sequence nimiber 

10-16 File name 

17-2a Old file name 

25 File type 

26-29 Block length 

30-33 Record length 

3U Processing type 

35-42 System/3 label 

U3-U8 System/3 label 

ta-US logical SYSXXX device 

49-51 Physical device address 

52-56 Relative record number 

57-59 Number of FCB phase for print file 

Type 1 = B (CONV0 6 component) 

1 E identifier 

2-7 Name of source program 

8-9 Sequence number 

10-12 Forms length 

13-15 line niamber of channel 12 

16-18 line number of channel 1 

19-21 line number of channel 2 

22-24 line number of channel 3 

25-27 line number of channel 4 

2 8-30 line number of channel 5 
31-33 line number of channel 6 
34-36 line number of channel 7 
37-39 line number of channel 8 
40-42 line number of channel 9 
43-45 line number of channel 10 
46-48 line number of channel 11 
49-51 line nimiber of channel 12 
52-56 Relative record number 
57-59 Number of FCB phase 
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CONTRO L FILE (LENGTH 64) 

Type 1 = A {CONV04, CONV06 components) 

1 A identifier 

2-7 Name of source program 

8-9 Sequence number 

10-16 DOS/VSE file name 

17-24 Old System/S file name 

25 File type 

26-29 Block length 

30-33 Record length 

34 Processing type 

35-42 System/3 label 

43-48 logical SYSXXX device 

49-51 Physical device address 

52-56 Relative record number 

57-59 Number of first FOB 

Type 1 = B (CONV04, CCNV0 6 components) 

1 E identifier 

2-7 Name of source program 

8-9 Sequence number 

10-12 Forms length line number 

13-15 Line numnber of channel 12 

16-18 Line nimiber of channel 1 

19-21 Line number of channel 2 

22-24 Line number of channel 3 

25-27 Line number of channel 4 

28-30 Line number of channel 5 

31-33 Line number of channel 6 

34-36 Line number of channel 7 

37-39 Line number of channel 8 

40-42 Line n\amber of channel 9 

43-45 Line nimiber of channel 10 

46-48 Line number of channel 11 

49-51 Line number of channel 12 

52-56 Relative record number 

57-59 Number of first FOE 



OCL FILE FILE (LENGTH 64) 

Type 1 = A (CONV06, CCNV10 components) 

1 A identifier 

2-7 Name of source program 

8-9 Sequence n\amber 

10-16 DOS/VSE file name 

17-24 Old System/3 file name 

25 File type 

26^29 Block length 

30-33 Record length 

34 Processing type 

35-42 System/3 label 

43-48 Logical SYSXXX device 

49-51 Physical device address 

52-56 Relative record number 

58-60 Number of FOB phase for print file 
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S3LAB EI FIIE fl ENGTH 64) 

CONV01, CONV08, C0NV11 components 

1-8 Systeni/3 label 
9-37 DOS/VSE label 

JCLFILE FILE (INDEXED SEQDEWTIAL, LENGTH 128) 

Type 1 = 1 (CONV08, CCNV09, CCNV11 coinponents) 

1 1 identifier 

2-7 Name of prograir 

8-10 Sequence number 

11-60 Image of JCL statement 

128 * if // EXEC statement 

Type 1 = 2 (CONV08, CONV09, CCNV11 components) 



1 


2 identifier 


2-7 


Name of program 


8-10 


Sequence nxmiber 


11-43 


logical SYSXXX devices 


11-13 


1 


14-16 


2 


17-19 


3 


20-22 


4 


23-25 


5 


26-28 


6 


29-31 


7 


32-34 


8 


35-37 


9 


38-40 


10 


41-43 


11 


44-54 


Assign types 


44 


1 


45 


2 


46 


3 


47 


4 


48 


5 


49 


6 


50 


7 


51 


8 


52 


9 


53 


10 


54 


11 


55-120 


Pack names 


55-60 


1 


61-66 


2 


67-72 


3 


73-78 


4 


79-84 


5 


85-90 


6 


91-96 


7 


97-102 


8 


103-108 


9 


109-114 


10 


115-120 


11 
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Type 1 = 


= 3 ( 


1 




2-7 


8-' 


10 


11- 


-17 


18- 


-25 


26- 


-29 


30- 


-33 


34 




35- 


-36 


37- 


-t»0 


41- 


-48 


49- 


-77 


78- 


-81 


82- 


-85 


86- 


-88 


89- 


-94 


95- 


-98 


99- 


-105 


106-112 



(CONV08, CONV09, C0NV11 components) 

3 identifier 

Name cf program 

Sequence nimiber 

DOS/VSE file name 

Old System/3 file name 

Block length 

Record length 

File type 

Key length 

Key position 

System/3 label 

DCS/VSE label 

Auxiliary label 

Validity period 

logical SYSXXX device 

Pack name 

File type 

Data tracks/blocks 

Data relative track 

STRE AMS FILE (LE NGTH 128, CONV11, C CNV12, C0NV13, C0NV14 COMPONENTS) 
Type 1=1 (Image of source program statement) 

1 1 identifier 

2 Statement type: 

- LOAD (except for Sort and Copy programs) 

1 - Not converted 

2 - System/3 provisional (to be deleted or printed 

as not converted) 

3 - System/3 conversion pending 

4 - Common to System/3 and DOS/VSE 

5 - System/3 format 

6 - Deleted 

7 - To be printed as ignored 

8 - LOAD (for Sort programs) 

9 - LOAD (for Copy programs) 
3-98 Image of source program statement 

99 Blank 

100 Skip (1 for LOAD and CALL statements) 

101 EXEC (* for each program to be executed) 
102-107 Program name 

108 Number of statement not converted (PAUSE, DATE, 

SWITCH, JOB) 
109-110 For free format, position of the first character of 

parameter 

123 Previous step not converted 

124 This step not converted 
125-126 Previous step error 
127-128 This step error 

Type 1=2 (Separator between OCl Statements and Sort and Copy control 
statements) 

1 1 identifier 

2 Program: 

1 - Sort program 

2 - Copy program 
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Type 1 = 3 (ASSGN statements) 

1 3 identifier 

2-37 Array of up to 12 logical SYSXXX devices 
38-109 Array of up to 12 physical device addresses 
110-121 Array of up to 12 device types (U = unit record, 
T = magnetic tape, blank = disk) 

Type 1 = H (DLBl and TLBI statements) 

1 4 identifier 

2-8 File name 

9-37 label 

3 8-41 Auxiliary label (path or alternate index) 

U2-45 Validity period in days 

46-49 File type (SD, SVC, VSAM) 

50 Type (S, V, T, K, E, R, A) 

51-53 Logical SYSXXX device 

54-59 VOIID of pack or tape 

60-66 Data relative track 

67-73 Number of data tracks 

74-78 Block length 

79-83 Record length 

84-85 Key length 

86-90 Key location 

Type 1 = 5 (Additional record for future use) 

1 5 identifier 
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APPENDIX C. EXECUTION OF SAMPLE PROBLEM 



<: * * * C/5PDS DSFO IN THF CUSTOMIZATION * * * * 

// LPSn P';rnPY,Fl 
// RUN 

// CLF^P FPnM-niS,PACK-ninini,ARFA-CGNVFR,TYPF-FORCF 
// FMO 

// LOAD PDCnPY,Fl 

// FILF MAMc-BACKU^tUNIT-Tl^PFFL-NL 
// RUN 

// COPY PACK Tn-!<'1 
// FNO 

// Lf'An rSTl'^l,P 1 
// SWITCH 10001000 

// PILF NA^-F-CAPniM.UNiT-P.l.PACK-CONVER.TP.ACKS-^ 
// RU^! 

ruv^FCui nisK'.n tarp diskft niooo 

PUTFP.A /tP/f4Y^?0?-5 

FQUDI'^K45 FPA 

FQUTApr TAPE 000780 

FOUPK INTPpppTNTPP 132LST00F 

HQUVrCJl PFAnoi IPTOOC 

EOU^FCU? F"A 

FQ(!MFCI!? D'SKi^T 96001004 

/* 

CST1'5?,P 1 

N AM F -CAP DIM, UN I ■^-P I , PAC K-CONVER , RETA I N-S 

^^AMr_c;^llPCF,UMIT-D 1 .PACK-CONVER 



// 


LUAH 


// 


FI LF 


// 


rii r 


// 


PUN' 



INPUT SA""LF CARTS * * * * 



// lOAP CnvvoO.Rl 

// FIl F N'AMr-wn^KnSK, UNIT-ni ,PACK-niOini , LOC A TI ON-20 , IP ACKS-30 

// PU^' 

rSAM FTLF 1 20S 002 30 lOOOSfPFILFl 

FKSns.FIir^ 30K05 11515003 60 2000SMUFILF? 

PFS'^S.riir3 20E 003 «0 3000SMNFILF3 

FSAM ni c 4 POS 00? 120 4000SHNFILFA 

/* 
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/ / L 
(I F 

// r 
// f 

// F 
// R 
// L 
// F 

// r 
// 1 

F 1 1 f 
riLc 
// 



HAD 
FLF 
ILF 
ILF 
ILF 

n "n 

U.r 



r,0MV01,Rl 

MAMF-wnRKnSK,UNIT-0 1,PACK-0 101Dl,L0CATIGN-20,TPACKS-30 
NAMF-wnRKnsi,UNIT-01 .PACK-D ID 10 1 , LOG ATF C^4-?0 , TR ACKS-30 , L ABEL-WOPKDSK 
MAMr-S^LABFL,UNrT-Dl,PACK-niOini,LnCATlCN-?2,TRACKS-10 
N AMF-L AP t-L S , UN I T-D I , PACK-D ID ID 1 , LOG A T I CKl-2 1 10, TRACKS- 1 

GOMVO/'.P 1 

MAMF-wCf^KDSK.UNIT-Ol.PACK-DlLnOl.LCCATIC^-ZOtTRACKS-^O 
^lAMF-PR^^,PAM,UfJIT-^l,P/<CK-0l^)l^)l,LOCATI0N-?? 10, TRACKS -50 

SAM FII.F 1 
KSOS.FILF? 



// L 

// r 

// F 

// ^ 

FILF 
F It F 



u 
FT 

rp 

'=r 
ir 

I 
r 
Cl 

n. 

CL 

ri. 

C! 
CL 
F| 
CI 

PF 

■ r 
p 
pr 



n 

r 

fJAH 

It r 

II F 

1 



c 

,« (■' n 
ILF] 

ri F? 

AC'n 
01 



f! 

p 



p 

II Fl 



HP? 



I 6 



IP 



J 

?A0 20 
210 30 O^AI 
1 '^NC 



SAMPL 1 



MFCUl 
DlSKA'j 
1 0ISK4? 



I F T A G 1 

NUMB 



LP tag: 



SPTC M 

TAG 

C'lMP 1 AST 

G'TTP l_RTA'-? 

ADO I 

SFTPN 

PXCPT 

GPTU LKTAGl 

T^G 



NUMB 



SOLAST 
LR 



3 



0? 



NUMB 

NUM^i 
NUMH 



5 
3 



FILP 1 



FILF 



'SFGPFU' 



RFC PRO' 



Cnf.JVO?,n 1 

•,.AMr-unpKnSK,UNTT-ni,PACK-niOl'n , LOG A TI nN-?0, TRACKS -30 

K:«Mr_-,^nGPAM,UN IT-0 l.PACK-nir^iOl ,LOf AT]fr;-2? 10,TPACKS-5n 

SA«^ fILP 1 
KSOS.P ILP2 
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// 
// 

// 
// 

F II 



H 
FP 

FF 

Fl. 

fF 

I 

I 

IF 

I 

c 

PL 

n 

r 
P 
r 
r 

n 



rii f^ 
FILE 

r 1 



C 
RFl 
II F2 
1ST 
11. Fl 



n F? 

I ST 



16 



IP 
C 

(1 
MS 



K'S 



n 



J 

?40 20 

?40 30R05AI 

l?.0 120 OF 



SAMPL2 



DI SK45 
1 DISK45 
PRINTFR 

1 
It 



^06 



1" 

tlF 

1 



6 LP 



THAINF ILF2 



TEXT 
TF X2 



n 



20 TFXl 
200NI)MB 

:^0 TrX2 
03 



35 'HFADFR' 

2? 
55 

34 TNn' 



•I A^'F-urPK ns K , I IN I T-n I ,PACK-n in l,) i , lac A "^I UN-?n , TP ACKS -3 
MA"-'r-fM-<PG!-' \f', ilMTT-n 1 , PACK-O iniOl ,LnCATTON-22 1 0, TRACKS- 50 

'^'JT'S .r tL ""3 



H r 

FT U FT 

Fl T ST 

I(, -*f'^ 

I 

! F T I P 1 

T 

c 



1 ^- 



TST 



/ / I, P '.T 

// rut 

// FTLF 



TO 

TC. 



PS 



J 

12 



SAM PL 



^1 

7 



MA 

7 OF 0' 

120 



A I 



IF 



MFCiJl 
0! SK45 
PRir-;TFP 



CHAINFILFI 
2NO3 

NLIM Z 

TFXT 



^f'^IVO"^•,^^■ 1 

MA*'r-PP nof- A?.!,Lr'IT-ni,PACK-nnini 
^. A»< ,--p(< pp.i; , (j\ I T- '^ 1 , PAC K -0 10 10 1 ■ 



5 0t-nw 

20 TFXT 
0^^ 



21 



LAHFL-PHOGRAM 
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If 


RUN 


// 


Lnflo 


11 


F II f^ 


11 


F 11 P 


If 


RUN 


001 




/* 




II 


i rflo 


1 1 


F nr 


II 


1 ! N 


II 


1 CMD 


II 


F ILf- 


II 


riL'^ 


It 


r n. r: 


1/ 


f.' 1 1 ^| 


II 


I ri i T 


II 


r n p 


If 


f" ! 1 r 


II 


ni r 


/ / 


P'JV 


07W''l •'"!"' 


0^ 

f 'v 


V'll.OO 


// 


1 HAH 


// 


F ri !- 


// 


F I L h 


// 


<= TL^ 


// 


Fit r 


// 


1 1 \< 


II 


L '; A 'y 


// 


F !L^ 


// 


F H r 


// 


p 1 ) N' 


II 


LOAH 


II 


f TL'^ 


II 


f TLF 


f 1 


•llM 


II 


I ':Ar 


II 


Ff I F 


// 


FTl r i 


// 


ruF 


// 


c ij c 



cnMV04,p I 

NAMi:-PPPGP«M,UNTT-r)l,?ACK-niDni,TRArKS-'^0,LCCATlCN-2? 10 
NAMF-crNTPrL.IJNIT-O] , f'ACK-iJ 10 in 1 , Tti, AC KS-1 , LOG AT ICN-2'^ 



Cr''V0 5,R 1 

M ^ M r-PROGM Af* , UN I !-"> 1 , PAC K -D 10 1 H 1 

CP^'V06,P 1 

MftMr-COMTRnt ,UNIT-ni,PACK-nnini,RFTAIK-S 

M/yMp_prncPAM ,i)N IT-ni ,PAC.K-n IT 101 ,PFTAIN-S 

NJA'n-urLF IL FtUfJfT-nij.TACK-ninioijTRACKS-lCLrCAriCM-i'S 10 

MAf-.'F-WL"KOSK,UN IT-Ol ,n),''.CK-0 10ni ,kt TA !K-<; 

NAVF-i ^p.FL S,UNTT-ni ,PACK-0ni0 1 
"-A^F-L ABFLSltUN I T-T 1 , ''ACK-n lo n i , L A"T L- L ABFL S 



35? 
70 



CP\'V0", i' 1 

TiA'-n— r^CLF II r,UM! T-m ,o,ACK-ni01 11 
riA^* r_<; 3L AOFI , U^l 1 T-0 1 , daCF'-O mO 1 
MAf' F-l A1 FL F , I IM T T-0 1 , PAC K-O 10 10 1 
r:Ai'' t-j CL F TL r , U\' T T-0 1 , i:.AC K-n 10 10 I , TF AC KF-o o , LOG AT I0fM~?6 

rp«!V0",Rl 

NiA''"--jrL f ILF.l'MT T-0 1 ,oACK-r^ioi.n 
''^AMF-I ATFLSjU'! TT-ni .TACK-Omoi 



^"'^NVIO.F \ 

\Ar'r-! AFf^LS,UK: IT- 
N A^r-LA'^FI. S 1 ,n\' !T- 



.)l,PACK-ni;5] )l 

1 1 rPACK-nioiMl ,LAP,FT-LAP'"LS 



CPNVll ,0 1 



)1 ,PA( K-OIOIOI 



[I 



. U"- 



T-ni ,PACK-nioi0 1 



lAM'^-JCl 

'A-^r-S^I AOFl ,lF>i IT-Ol .r'ACK-ninini 

jAMF-STt-'F A«S,^^'IT-^^ ,PAC: K-Oli) ini , Tft A r K S-? 'i , LHC AT I 0^' 



■o?7 on 



5a 



// RUN 

// LOAo <;ampi 1,R1 
// SWITCH nnoionoo 

DATF 101?78 

^!A^«C-r n r?, UNI T-ni, PACK-DIP 10 1, TR AC KS-1 c 

NAMT-f ILri,UNIT-ni ,PACK-+1D1D1,TRACKS-10,LABFL-FIIF4 



•ni'^ni,TPACKS-l CLABFL-FIt r-4 



// 

// F ILF 
// FIIT 
// RUN 
// LliA'^ 
// FU.F 
// FUr 
// RUN 

HSOFTP 5A S X ?0 
ALTSrC FAFP 

I r 1 :^MFC 

FNU 

rnc 

FNO 

r I I. f" 
r 1 1. K 

RlIN 
L" A!) 
F Tl F 
FT!' 

RUN 

H<;r!TP ',.\ X PO 

■^f'n I F 

F'^^ I ''0 

TNI n 

Ll^A^' ''COf^Y.Pl 

F T L'" VA'T-cnPYlXi ,UN' IT-ni ,PAC K-L) ID 1 (U , LABF L-F 1 1 F3 

p 1 1 ^' 

CL'"vrnr nijToiiT-pp INT 

SPLFCT K PV, TRO^i-' 0001? ' 

FMD 

LP ^n SAM PI 3,P 1 

FILF NAMF-P !LF1 , UN IT-O I , p,\CK-0 ID ID 1 , LABF L-F I LF3 

PUN 

I PA^ "^f ""Y,P 1 



// 

// 
// 
// 
// 

// 
// 

// 
// 



// 
// 
// 
// 
'/ 
// 
// 
// 
// 
// 
// 



s^nsnPT,Ri 

NA"F- INPUT, UN rT-ni,PACK-ninir)l ,TRACKS-10, LABFL-F I LFl 
NAMF-nuTPUT,nNTT-ni,PAC K-niDini, TRAf KS-1 0, L ARFL-F I LF? 



1 
I 
1 

(• 
16 

V A" F- 



IS 

?0 

2 , P I 

f TL Fl , UN IT-iil.PACK- 

(- IIP,'', UN IT-'1T ,PACK-Din ni , TPACKS-10 



■^•osnRT.Ri 

\iA"F-IN'PUT, UN IT-ni ,PACK-D10 101 , LABF L-F I LF-t 
^■r"F-''UTPUT,l|^;IT-^l ,PACK-D)DinL , TR AC KS- 1 , LA"F L-F I LEI 
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J 1 


HLF 


II 


PUM 


// 


COPY 


// 


•^FLF 


// 


r ^l n 


/^ 




// 


Lf'flf^ 


// 


fTLr 


// 


F Ur 


// 


P 1 1 M 


// 


1 ri /( 


// 


F [ F F 


// 


F r F r 


// 


RUN 


// 


1 F AT 


// 


f TLF 


// 


^ I L F 


// 


PUF 



NAMF-cnPYIN,tlNIT-FI.,PAC,K-FlFlFl,TRACKS-10,LABFL-FILE? 



FILF CJUyTX-PP, INT 
CT KFY.FROM-'OOOl?' 



Cnr.'Vl?,Rl 

f\!AMF-ST'>FAMS,UNIT-ni,PACK-f)inini 

NAMr-c,TRFAMl,UN?T-ni , PACK-O n n 1 , l ACFL-STRr AMS 

Cf NVl'S" 1 

^■'^ M F-S FP F A" S , UM I T- [) 1 , PAC K-i) 10 10 1 

M AM V,- s TD F AM 1 , ON y r-n 1 , PAC K-i) 1 (1 1 n 1 , L A n F t- STR L AMS 

F( ^'V1^,R 1 

N A v-- s T R h Af.' s , UM I T- T 1 , rv,c. K -n 1 n 1 n 1 

M;,,.,, c_<;tf F A'-' 1 , U\' T T-n 1 , PACK-r> in n 1 , L ABF L- STpr AM-; 



I7f =(:'iK 



■^00 



**=;'« i-MITPUT SA'PLF rA";1S * * ' 

* F*' jnp> jiVw = sAMPL 1 ,ri Ass=o 

// J'!P, SAMPFl C;)«'PI1F AM^ L^JK^TT 
// r'^TIP'-: rvrAl 

HH ASF c, AMPl 1 , <; 

// F < F r f r, r 1 
' ) 1 o 1 n M 

O^OlOFfA'^n fP !" 

7 n 7 n c r T ! F ' ^ F 

0?O^OFF It f:> p r 

030 10 If AfP ^ t:, 

040 1 or o] 

040':)rLP [ f.: TiPl 

'^'tC^OCL (■• rvpiMP 

040 4,1(1 r o? 

T4P^nr| r ^■M^'r 

n40c MC( P 

"4C^Pn P f^XCPT 



1 



^, 
2 
^5 
PVp 



SFTLM 
TA G 
rtiMF 
nPTr 
AO;' 
<;rT. 1 



FFAHPl SYSfPT 
FT A SYSOO^S 
KSOS 



^OlAST 
LP 



1 AST 

1 RTAG2 



0? 



fjtjf/p 



0? 



SAWPF 1 
SAM PL 1 
SAMPL 1 
SA'-'^L 1 
SA'^PL 1 
SAV'PL 1 
SAVPi 1 
SAMPL ] 
SAMPp 1 
SA""!, 1 
SAMPL 1 
SAWPI 1 
SAVPL I 
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O^OanCL" GOTO l.RTAGl SAMPL 1 

0'V090rLR LRTAn2 T4G SAMPL 1 

05010nFii Fir 0^ SAMPL 1 

"■^0200 IS 'FILF 1 - RECORD' SAMPL 1 

^^O^.OP NOMB Z 20 SAMPL I 

O^OAOCFILF? F 0^ SAMPLl 

OSO-SOC NUMB 7 5 SAMPLl 

05060FI NUMB Z 30 SAMPLl 

n'-^Clor 25 TfLF ? - RFCTPO' SAMPLl 
/* 
// FX FC L^KFnT,SI7F=64K 

* rf. JOR JNM=SAM'^( ?,CL ASS = n 

// JiiP SAf^PL? CO'^PILF AM" LNKFPT 

// ^PTI^^' CATAL 

PH*"^, r SA"!PL?,S 
// FVFC ro(;i j,c;i7r = (^/^K 

OIOIOH J SAMPL2 

0?010FFILF1 IP FIOOO ?n FfiA SYS002S SAMPL 2 

r,707-'^FP It r2 C H 30r 5A KSOS SAf^PL2 

u2C^or| TCT n F 1^2 pF PKI NT FP S YSLST SA.'^PL2 

OBOIOL* rfj^fionf-.n] 06012SAMPL2 

SAMPI_2 

1 20 IE""] SAMPL 2 

If 200NUMB SAMPL 2 

SAMPL 2 

11 30 TFX2 SAMPL 2 

rMMNFILF2 03 SAMPL2 

SAMPL 2 

SAMPL2 

3'=; 'HfADFR' SAMPL? 

SAMPL2 
TfXl 25 SAMPL2 

TFX2 ^5 SAMPL 2 

SAMPL 2 
34 'FKO' SAMPL 2 



,S=0 



^40 10 IF 


TLFl 


NS 


02 


04020 I 








0403n I 








040 40 IF 


II F-:' 


^:S 


2 


40 50 T 








050 IOC 


01 




NUMR 


OSOIOPL 


1ST 





3^^! IP 


0i^02nr 




r F 


FF 


060 3on 








06040" 




n 


I ni 


OAC^O^' 








n 5 Of. OP 








060 70F 




T 


1? LF 


OfOHOri 








/* 








// Fycf 


L^KF 


OT,S I/F=e4i' 


/I 








* i " f;i 


J 






* PR J^ 


':. JM'-'- 


= F'.;r! 


^t'OOl ,CLA 
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// JOB F^JFCnOOl ASSEMBLY AND LINKFOIT 
// nPTir-N CATAL 

PHA^^E rPFCR001,+-0 
// FXEC ASSEMBLY, SI?F=64K 
FRFCBOOl CSECT 

DC X' onoooooooooiGCOoooooooocoooooconooonoooooooooooooooo' 
DC x« cooooooooooooooooooocoooooooorooooooooooooooooocoooo' 

DC X'OOOOOOOOOOCOOGOCOOOOOOOOOOIOOCOOOOOOOOOOOOOOOOOOOOOO' 

nC X'COOCOOOOOOOOOOOOOOCOCOCCOCCOOOCOOOOOOOOOOOOOOOOOOOOO' 

\K. X' C^OOOCOnoOOmoOO' ,XL80'00' ,CLS» • 

nC CL75'FRFCBC01 LOAPiEn' 

EiNJD 

/* 

// FVFC I NKFDT,sr7F=64K 

/fi 

* f W FT! J 

* TAP001 TO CnPY S 3 'FIlEl* TO ^pi.! ' <:,M^. FILE !• Tvpr: 5 
// IPAn f^TINIT,Fl 

// Riir' 

// VrU UNIT-Tl ,TYPr-ClEAR,PFFL-TAP001,nENS[TY-16no 
// F-MD 

// IV/^l »-rpnY,Fl 

// FTLF NAf'F-CPPYT'' ,L ABEl-r Iiri ,UNF T- ,PfiCK- 

// FILF M*^'f--CrPYa,LABFL-FILEl,l)NIT-T1 , 

// PFrL-T/>P001,fMKl -4naO,Rrci-?0,RFCFW-FB 

// FUN 

// ri'.py riLE U iJTPi IT-F IL E 

// r"n 

* * * OF! [NF ".CMAL. MASTER .CA TALi'G * * * 

// HL'^l IJSVSCT, 'MASTr,.-.CATAI OG' ,qq99,VSAM 
// FXTffT SYSCAT, , , , ,7rf 

// FXEC inCA(ws,SI7':"=AUTn 

OFFI\i!- '-ICAT- 

(na'-'f(mastfw •L'.talc';)- 
ficcusysct)- 

B( nCKS(?56)- 
VCl.!J"F( ) ) 
/* 

* * « ni-FTr'f- SPACr VVni Qo?. TAT/' .S"ACr .LfOOOOOO. L. SPAC * * * 
// ASSGN SYSC'O^, FEA ,VOL=vrL00?, SHR 

// TLBL '^AT'i<;P, • VVOL^OP.nA, TA.SPAf;E.LOOOQCO-!.L . SPAC ,gQq9, VSA" 
// FXTPMT SYS003, y^:'LOnP, , ,704, ^20 
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// 



* * 

// 



EXFC IDCAMS,SI7F=AUT0 

DEFTNJF SPACF- 

(PL0CKS(320)- 
FILE(DATASP )- 
V0LUMFS(VnL002) )- 
CATAIOG Cm ASTPR. CATALOG) 

* ""EFINF FSnS rSDS.FILF3 * * * 
EXFC inCAMS,SI7F=AUTD 



* it 
// 



OEPTNF CFUSTFR- 

CNAMF(FSns.FILE3)- 
VClLUMFS(VOLOO?)- 
F0R(90)- 
RFCS7C?0 20)- 
CIS/dH--^)- 

PFCnRns(3?no hoo)- 

SHPf ?)- 

RFUSF- 

^nXD )- 

HATA- 

(NAMP(r^os.F ILr3.LOOOOOOO.LCCCOCOO.nATA) )■ 

CATALCG(*^ASTFR .CATALOG ) 

^ « OF<^!Nr KSDS KSDS.FILE? * * * 
EXrc nCAriS,SI7c=AiJTn 
OF P IMF CI USTTR- 

(■NAMF(KS!)S.F ILE?)- 

VfanMrs (VOLOO?)- 

FOR (60)- 

p res 7(^0 30)- 

SHR( 2)- 

r^SPC(l2 13)- 

KFVSC5 0) )- 

OATA- 

( NAME (KSnS.F I LF2.L 0000000. LOCCOOOO.O ATA I - 

RPCnpn<; (?f /^o 40fc)- 

CIS7(1024) )- 

INOFX- 

(^!AMF(KS^<;.FIL^2.LOO00 0C.LO00O^O0. INDX)- 

CIS7(512) )- 
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/* 

II 
It 
II 
II 
II 
II 
II 
I* 
* * « 



CATALOGCMASTFP. CATALOG J 

* DATA IMPORT liTILITY TO COPY FILE KSOS.FILF? * 
ASSGN SYS00A,3340,VnL= 
ASSGN SYS00 7,FnA,VOL=VaL0O2,SHR 
nLBL niiTPIIT, 'KSTS.FILF?' ,60, VSAM 
FXTFNT SYS007, VCLOO? 
FXEC S3nATA,SIZF=AUTn 
ril r NA"F-F1LF?, PACK- 
OUT D ^LPL-nUTPUT,AM-VSAM 



// 

// 

// 
// 
// 
// 



prppr TC COPY FIl-F SAM FILF 
ASSGN SYS004,TAOF,VnL=TAP00l 
AS SGV SY S005 , FRA , VOL =VOLO0 1 , SH"? 
TL «L T ,* P E I hi , • F IL F I • , , TA o 00 1 
OL "! riLFfMIT, • S'SH FTtF l',?n,Sn 
FXTFMT SYSOfiS, V^U_00! , , , ^52, 64 
FXf^C !r'CAMS,SI7F=AUTr 



I * * * 



fFDi. n 



if. « 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 



INf-Jl FfTAP'-IN- 

FNV- 

(F Ff-FM (F" )- 

RLKS7 (4080)- 

PFrS7(7n)- 

P0FV(?400) ) )- 

nnTriLF(Pn ^QIJT- 

FMV- 

(r rr. F*' (fp )- 

"LKS7 (loon)- 

PECS7 (?0)- 

PnFV (F3A) ) ) 



*■ SAVPI 1 FXFCOTIFN * * * 
I IPS I 00010000 
OATF in/]?/73 
ASSGM SYSTPT,X'OOC' 
ASsrM SYSCO?, FP.A ,vOL = VPLOni , SHR 
ASSGM SYSOC:i,FBA , V'SL =VnLOO -^ , SHP 
■:)LPL ^[Lri,"S'i«' FRF 4',l20,Sn 
CYT-''iT SYSOO?, Vr'LOni. , , ,41o,! 92 



OLPl PTL rO.'KSf^S.^ ILr-2 
^XT^^.T SYS(U^'<, VfU 002 
rxFC ^A^iPL l,SI7r=AUT" 



60, VSAM 
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* * * SHRT FXPCUTION * * * 

// ASSGM SYS0n7,FBA,VnL=vnL002,SHR 
// ASSGM SYS003,rOA,VnL=VCL001,SHR 
// Hfl SPRTOUT,'FSDS.FILF3',90,VSAM 

// FXTFNT sv<;on2,vnLOO? 

//DIPL SOPTINl.'SAM FILF l',30,SD 
// FXTFMT SY.S003,VnL001, , ,352,64 
// FXFf .SnRT,SI7F = 64K 

CPTTHKi PRIMT = A|,L,SnRTWK = 001,SnRTOUT = CO?,SnRTIN = 003 

ALTSFO rmr=(FAFe) 

INCLdOF CnNn= (1, 2,A0,NE,C' ') 

SP'^T PlFLnS= Cl,^>,ZD,A ),FILPS=!,WnRK = l 

PFCPPn TYPF=F,l PNGTH=(?0) 

IMPFTL !'UKSI7F = 1000 

rnTFii rsns,PFliSF 

FND 



* * 

// 

// 
// 
// 
// 
// 
// 
// 

// 
// 
// 
// 



/* 



* SA'^PL? FXFCllTIGhi * * * 
ASS^,^" SVSI ST.X'OOF' 

•? LSI Frp = FRFCB001,l ST=SYSLST 
ASSGN' SYSOn-',rPA,vrL = VOLOni,.SHR 
A:SSG^! SY5nG3,FPA ,VCl.=VnLOO?, SHR 
01 GL FILFl.'SAM FILE 4' , 12C, SO 
^XT^^;T SVSOnr, VOL 001, , ,416,19? 
OLBL f TLF?, 'KSns.FILF-'" ,60,VSAM 
EvTrNT SVSnni,vOL00? 
rycr t;Af,.pL7, S I7'^ = AIITn 

* CPf"Y FxPCUTION * « * 
ASSHM SYS-^O?, '"RA ,VUL=VnL002, SHP 
"ILPL f^'FILF, 'KSnS.F ILF'" ,60, VSAM 
FXTFfvT SYSOO^, VfiLn02 

rXFC TnCA'^S,S!7F;=AUTn 
?RT?IT rNF ILFCINFILF ) OHMP- 

FKFY(n00 12) 
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FILFS USFD IN 4PLICATI0N SH - SYS002 PAG. I 

RECPRD"; RECCRnS BLOCKS BLOCKS BLOCKS 

TY- PRIMARY IN C. I. IN C. A. IN DATA IN INDEX IN ALTER. TOTAL SYSTEM 3 

_l-_^_'' E I PF RFCORDS FREE SPACE FREE SPACE COMPONENT OAIASET INDEX BLOCKS LABEL 

'^«" ' "LF ' S 1.550 64 64 FILEl 

";AM I ILE 4 S 4.750 19? 1,2 FILE* 

irTAL HP. OF BLOCKS SYS002 ,c. 
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FILES USFD IN «PLIC«TION SH - SYS003 



LABEL 



RECORDS RECORDS BLOCKS BLOCKS 

TV- PRIMARY IN C. I. IN C. A. IN DATA IN INDEX 

PE RECORDS FREE SPACE FREE SPACE COMPONENT DATASET 



BLOCKS 
IN ALTER. 
INDEX 



TOTAL 
BLOCKS 



SYSTEM 
LABEL 



ESDS.FILE3 
KSDS.FILE? 



3.200 
2.030 



126 
160 



128 FILE3 
192 F1LE2 



TOTAL NO. OF BLOCKS SYS003 

TOTAL NO. OF BLOCKS APLICATION SM 



320 
576 



63 



LOGICAL SYS USED 



oo;; 



00? 



6U 



LISTING OF ERRORS DETECTED 



FFILEl 



IC 



2A0 20R05AI 



I DISK45 



FILE 

ALLOWED - TYPFS KA 
SUBMITnn - TYPE E 



ATTRIBUTES 

- RECORD 

- RECORD 



on NOT MATCH 
?0 - KLFNG 
?0 - KLFNG 



5 - 



KLOC 
KLOC 



^RPHRS DETFCTEO IN SOURCE PROGRAM SAMPL3 - CHRFECT IT, AND REPEAT THE STEP. 
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ACTION MFSSAGFS FOR THE PFOGRAH SAMPLl 



09 fJCN IDFNTIFIFn PFCGPD CAN CANCEL THE PROGPAM.- MAY BE NECESSARY TO CHECK THE 
*FPPnR FIfLD. 
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LISTING OF PROGRAM SAMPLI 



* FP JOB JNM = S/iMPl 1 ,r,LASS = 

// jnP SAN'PLl CT'PTLf: AND LNKFOT 

// OPTION C^TAL 

PH4SF SAMPll,S 
// FXPf KPniT,SIZF=64K 



OlOIOH 



SAMPLI 



0?0 10'"'" AP P 
02n70FFT| PI 
0203nFP It F? 



IP F ao 

FIOOO 20 



RFADOl SYSIPT 
FBA SYS007S 
KSDS 



SAMPL 1 
SAMPL I 
SAMPLI 



*09 



030!0irARD 

03n?o I 



N'S ni 



'■NC 



I 50LAST 



SAMPLI 
SAMPL I 



040100 


01 




5FTCN 


040?nCLR 




1 RTAGl 


TAG 


04'^30 0I P 




NUMP 


COMP LAST 


04040 01 P 


0? 




GOTO 1RTAG2 


040'50Cls 




^'UMP 


Ajn 1 


04060C1 R 






SFTON 


040 70 CI f' 






FXCPT 


040BOOLC 






GfJTO LP TAG 1 


04000 01 P 




LPTAG? 


TAG 



LP 



02 



NUMB "5 



0^ 



SAMPL 1 
SAMPLI 
SAMPLI 
SAMPLI 
SAMPLI 
SAMPL 1 
SAMPL 1 
SAMPL I 
SAMPL 1 



050inrFILEl 



SAMPL 1 
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LISTING OF PROGRAM SAMPLl 



50?'0C 

Q50?00 

OSOAOnriLF? F 

05r50P 

506 on 

05G70n 

/* 

// FXPf Lr.KFDT,SI7F = 64K 

/^. 



03 







15 


'FILF I - 


- RECORD' 


NUMB 


Z 


20 






NllMB 


z 


^ 






NUMB 


7 


30 










?5 


'FILF 2 - 


- PFCORO' 



SAMPL 1 
SAMPL I 
SAMPL I 
SAMPL 1 
SAMPL I 
SAMPL 1 
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WARNING MFSSAGFS FfJR THE PPOGRAM SAMPL2 

46 L CHMMFNT CAP P HAS REFN A^ipED. 

f-l CHANGFP SKIP TT A LINP N'UME'ER PY SKIP TG A CHANNEL. 

62 PMF ^PACF AFTFf ASSUMED. 
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* Piri jnp, JNM = SAMPL?,CLASS=0 

// JO!? SAMPL2 CTMPILF AND LMKFOT 

// nPTIOM TATAL 

PHA<;f SAMPL7,S 
// EXFf kPnTI,<;T7r = 64K 



LISTING OF PROGRAM SAMPL? 



0101 OH 



SAMPL? 



O^OlOFt^ Tl El I' 
n2070FF ILF? C 
0?n^nr[ 1ST n 



FIOOO ?0 

F BOP 5A 

F 13? PF 



FBA SYSOO?S 

KSDS 

PHINTERSYSLST 



SAM PL 2 
SAMPL? 
SAMPL2 



030 10) 



O^tFL 00601 



Ot012SAHPL2 ^ 



04010 IFTLF 1 
04020 1 
040^0 T 
040 40 FF [LT? 
040^0 T 



MS 02 



0? 



1 ?n T F X 1 
U- 200ISUf^B 



11 



30 TrK2 



SAMPL2 
SA^'PL2 
SA?''PL 2 
SA'IPL? 
SAWPL 2 



so I or 01 



MI»"B 



r. HA INF ILF 2 



3 



SAMPL2 



OfOlOCI TST n 301 IP 



SAMPL2 6 1 
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LISTING OF PROGRAM SAMPL2 

Of020r PR OF SAMPL2 

06030n 35 'HEADER* SAMPL2 

060400 1 1 SAMPL2 62 

06050C irxi 25 SAMPL2 

060600 TFX2 55 SAMPL2 

06070C T 12 LK SAMPL2 61 

060800 34 'END' 5AMPL2 

/* 

// FXrr LNKFnT,Sl7F=64K 

/f. 
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CARRIAGE CONTPHL TAPF 001 CR FCB FRFCBOOl 



CHANN'FLS Fl 



01 02 03 04 05 06 07 08 09 10 11 12 



I. INTS 



f^f 



^0 



USFP ov "FPGkAMS 



SAM PI 7 
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00 fSI 
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• 


1/5 
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LISTING OF DLBL'S-TLBL'S AND EXTENTS 



// OLPl , 'ESDS.FILfS' ,90,VSAM 

// EXTENT SYsnm,vnL002 

// OLRl , 'KSns.FILP2' ,60,VSAM 

// EXTFNT SYS003, VPLOO? 

// DLBL , 'SAM FILE IS30,S0 

// EXTPNjT SYS0O?,vrLO01,l,l,35?,fc4 

// DLSL ,'SAM FIl F 4' ,120, SO 

// EXTENT SYS0n?,vrLn01, 1, l,Alf ,19? 
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DICTTONARY OF PROGRAM FXECUTIf.N CONTROL STATEMENTS 



«<=*********************<< SAKPLl ********«««#*♦***«**«*«* 



// ASSG^i SYSTPT, yiooC 
// ASSGM '^VS0C?,rR;i,vnL = VnLOGl,SHP 
// ASSGM SYS003,Ff A,VnL=VnL002,SHP 
// ni Bl rilF].,«SAM FILF l',^0,sr^ 
// EXTtMT SYSCO?, Vni. 001, l,l,3S2,t-4 
// '1LPL fiLF.?, 'KSOS.FILC?' ,6n,vSAM 
// PXTF^!T SYS0C3, VnL002 
// ^'XFr SA!''PFl,ST/F = AUTn 



;*****,(:**::<tjj:fc^:A.^^^M:;^5^^^^^, SA^'^PL? ************************ 



// AS'^GN SYSLSTjX "OOF' 



i- 



= F'^TrP00l ,L^T=SYSLST 



* * '' I. '^^ T 

// ASSr,r' S^SOO'^.rPA .Vnt^VOLOOl, SHP 
// ASSGN SYS003,FBA,Vt)L = VnLO0?,SHR 
//Oir-I FRF I, 'SAM riLF l',30,Sn 
// FXTf-K'T FYsoc.VnLOOl,!, l,3S?,f4 
// ni P| PTLF?, 'KSns.FTLF?',60,ySAM 
// FXTr^\'T SYSn^'<, VFLOO? 
/ / FX Pr S A" PI. 2 , S I 7 != = AUTP 
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LISTING OF S 3 COPYS 



* TAPOOl Tr. CPPY S 3 'FTLFl* TO NEW » SAM FILF 1' TYPF S 



// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 



LOAD PTINIT,F1 
RON 

VOL UNIT-TI,TYPF-CLFAk,RFEL-TAP001,DENSITY-1600 
FNH 

L13AD HCPPY.Fl 

FILF ^JAMF-C^PYlN.LABrL-FILFl.UNIT- ,PACK- 

FILF iM4MF-C0PY0,LABFL-riLFl,UNIT-Tl , 

PFFL-TAPOOl , BLKL-4080,RFCL-?0,RFCFM-FB 

RUN 

COPY FTLF nUTPUT-F IFF 
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LISTING OF A.M.S. COMMANDS AND DATA If^POPT UTILITY CARDS 



* * * DEFINE M.CATAL. MA STFR .CATALOG * * * 



// 
// 
// 



/* 



DLBL IJSYSCT, • MASTER .CATALOG ', 9999 , VSAM 
EXTFNT SYSCAT, ,,, ,256 

EXEC IDCAMS,<;i7E = AUTn 
DEFINF MCAT- 

( NAM F( MA STFR. CATALOG )- 

FIl E(IJSYSCT)- 

BinCKS(256>- 

vnLUMF( )) 



* * * 

// AS 
// OL 
// EX 
// FX 

OF 



/* 



DF^IMF S-^ACF VV0L002.DATA.SOACE.L00000G0.L.SPAC * * * 
SG^• SV<;00 3,PPA,VDL = VnL00?,SHR 

RL ;)ATASP,«VVnLO0,?.nATA.SPACF.L0O0O00n.L.SPAC' ,99 99,VSAf 
TF^'T SYS003, VOLOn?, , ,70 4, 3 ?" 
FC Tr)CAMS,SIZ'^ = AI)Tn 

riK;F SPACE- 

f SIDCKS(320)- 

filfCdatas'^)- 

VnL'JMrS(Vf'L002) )- 
CATALaG(MASTFR .CATALOG) 



* * * nFFINE ESnS rSDS.FILF3 * * * 

// FVFC TnCAMS,SI7P=AUTn 
DFFINF Ct USTFR- 

(NAMEfESOS.F It'^'^. )- 
Vni IIMFSCynL002)- 
F0R(9n)- 
RECS7(20 20)- 
CIS7(1024)- 
SPFFD- 
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ITSTING OF A. M.S. COMMANPS AND DATA IMPORT UTILITY CARDS 



/* 



PEC0PnS(3?00 BOO)- 

SHR(2)- 

RFIISE- 

NIXO)- 

DATA- 

(NAMF(ESns.FILE?.LOOOOOOO. 

CATMOG^MASTFR .CATALOG) 



LOOOOOOO.DATA) )■ 



* * « DFFTMF KSOS KSnS.FILE;^ * * * 
// EXEC inCAMS,SI7.r = AIJTn 

offimf clustfr- 

(namfCksds.filf?)- 
v^lij^^fs(v0l002)- 

FriP(60)- 
RFCSZ(30 30)- 
SPFFD- 
SHR(?)- 
FSPC02 13)- 

K!^YS('^ n ) )- 

n-MA- 

( NA'-T (kSOS.fi LE2.L 0000000. LOOOOOOO.DATA )- 

kEcnFr)S(?64o ^ne )- 

riSZ(l024) )- 

INPEX- 

(NAMF(KSns.FILE2.LOO0'^CC0.L0000C0O. I NO X ) - 
CIS7(5I2) )- 

CATALCGCmaSTFP .CATALOG) 
/* 

* * * OATA IMPORT UTILITY TC; CCPY FILE KSDS.FILE2 * * * 

// Assofi <^.Ysno4, 3:^40, vnL = 

// ASSGN SYS007,FPA tVOl =VnL002,SHR 
// nLPI. f HTPtlT, 'KSOS.FIl F2' ,60, VSAM 
// EXTFKT SYS007,VrL002 
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LISTING OF A.M.S. COMMANDS AND DATA IMPOPT UTILITY CARDS 



// FXFC S3DATA,SIZE=AUTn 

// riLF NAMF-FTLE?,PACK- 

// OUTP DLBL-nUTDUT,AM-VSAM 
/* 



* * * DFPpri TO COPY FIIF SAM FILF 1 
// ASSnN SYSnOA.TAPF, VOL=TAP001 
// ASSGN SYS005,FGA,VnL=VQL00l,SHR 
//TIBL TAC'FIN.'F ILE1«,,TAP001 
// nLB! riLFOUT,'SAM FILF IS^O.-^r) 
// EXTFMT SYS005,VnL001,,,352,<-4 
// FXEC inCAMS,SI7F=AUTn 

REPRO I^FTl F(TAPEIM- 

FMV- 

(»fcfm(fp. )- 

PLKSZ(4a80)- 
PErS7(2n)- 

PnFV(?400) ) )- 
"MTT R F(f ILFnilT- 
FNV- 

(DrcFMCFp. )- 
BLKSZCIOOO)- 
°FCS7 (?0!- 
PTFV(FBA) ) ) 
/* 



« * * 
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LISTINF OF MESSAGES DICTIONARY 



3 NO INFU^MATinN ABOUT THIS PROGRAM. 



?8 niniT PPPTIOM USED 



(D in COL-8) 



•^6 SELPTT KFY WITH UNKFYFO FTLF. 
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LISTING OF JOB STRFAM CONVEPSION 



* * « SAMPLl FXFCUTION * * * 

// UPSI OOTIOOOO 

// DATF 10/12/78 

// ASSGN SYSIPT.X'OOC 

// ASSGN SYS002,FBA,vnL=V0L001,SHR 

// ASSGN SY^0O^,FBA,VOL=VnL00?,SHR 

// OLPL rUFU'SAM F!IF 4S120,Sn 

// FXTFNT SVSOO?, VCLOCI, ,,416, 192 

// OLBL FILF2, •KSDS.FILF2' ,60,VSAM 

// FXTFNT SYS003, V0L002 

// FXEC SAMPL1,SI7E=AUT0 

* * * * TNSFRT ANY DATA HFRE * « « * 



* < 

// 

// 

// 

// 

// 

// 

// 



* SORT EXECUTION * * * 

ASSGM SYS0 2,FrA,VOL=VOL002,SHR 

ASSGN SYS00-?,FBA,VnL = VnL001, SHR 

OLOL SOKTOMT, » F<^nS.FILE3' ,qO,VSAM 

FXTFNT SYSC02, Vni002 

DLBL SOkTI'JU'SAM FILF I ' , ^0 , SO 

PXTEN'T SYSOn3,Vai001,,,3'52,64 

FXFC SnftT,Si;E=6AK 

OPTf OM PRINT=ALL ,SnPTHK = OOI ,SORTnuT=00?', SORTING 

AI.TSFO CnnE=(FAFB) 

INCLUPF D:JNn= (1,2,AQ,NF,C' •) 

SORT FrrLDS = (U5,70,A),FILFS=l,wnRK = l 

KEtrPD TY^r = r,LrNGTH=:C20) 

INPFIL BLKST7F=tC00 

OIJTFTL F?nS,PFlJSF 

CM r^ 



:003 



/* 



« ♦ * SAMPLE FXECUTIGN '^ * * 
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LISTING OF JOB STREAM CONVERSION 



// ASSGN SYSLST.X'OOF" 
• RB 1ST FCB=fBFCB001,LST«SYSLST 
II ASSGN SYS002,FBA,VOL»VOL001,SHR 
// ASSGN SYS003',FBA,V0L="VrL002,SHR 
// DLBL FUEl.'SAM FILE 4',120,SD 
// EXTENT SYS002,V0L001,,,416,19? 
// DLBL FILE2,'KSDS.FILF2',60,VSAH 
// EXTENT SYS003,V0L002 
// FXEC SAMPL?, SIZE-AUTO 

* • • » INSERT ANY DATA HERE 



// LOAD KDSORT.Rl 

// FILF NAME-INPUT, UNIT-ni,PACK-D101Dl, LABEL-FILE* 

// FILF NAME-nUTPUT,UNIT-ni,PACK-DlD10I,TPACKS-ln,LABEL-FUEl 

// RUN 

HSORTR 5A X 20 

FND 1 ■; 

FOC 1 20 



NOT CONVERTED 
NOT CONVERTED 
NOT CONVERTED 
NOT CONVERTED 
NOT CONVERTED 
NOT CONVERTED 
NOT CONVERTED 



// LOAO ncoPY.Pl 

// FILE NAM E-C0PYIM,UNIT-0l,PACK-DinirH,L4BEL-FILE5 

// RUN 

// CC1>YFILF UUTPUT-PFINT 

II SELECT Krv,rRnH-'00012" 



NOT CONVERTED 
NOT CONVERTED 
NOT CONVERTED 
NOT CONVERTED 
NOT CONVERTED 



// LPAD S»"'>L3,R1 

// FILF N»ME-FILFl,UNIT-ni,P4CK-niDl(ll ,LABFL-FILf3 

// "UN 



NOT CONVERTED 
NOT CONVERTED 
NOT CCNVERTED 



♦ * ♦ rpPY EXFCHTION * « * 

// ASSr.N 5Y<;003,FBA,VCL='VnL002,SH« 

// DLBL INFILE.'KSDS.FILE?' ,bO,VSAM 
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LISTING OF JOB STRFAM CONVERSION 



// FXTENT SYSOO?, vnL002 

// exFr inrAMS,si7F=AUTn 

PRINT INFILF (INFTI.E) 

FKFY(00012) 
/* 



DUMP- 
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READER'S COMMENT FORM 

Conversion Aid System/3 SB1 1 -5351 -0 

to DOS/VSE PDOM 

We would appreciate your comments. Please give specific page and line references where appropriate. Your 
comments will be carefully reviewed by the persons responsible for writing and publishing this material. 

IBM may use or distribute any of the information you supply in any way it believes appropriate without 
incurring any obligation whatever. You may, of course, continue to use the information you supply. 

If you wish a reply, please be sure to include your name and address. 

COMMENTS 



THANK YOU FOR YOUR COOPERATION 
PLEASE FOLD ON TWO LINES, STAPLE AND MAIL 



SB 11-5351-0 



YOUR COMMENTS, PLEASE 



Your comments on the other side of this form will help us improve future editions of this publication 
Each reply will be carefully reviewed by the persons and department responsible for writing and publishing 
this material. 

Please note that requests for copies of publications and for assistance in utilizing your IBM system should 
be directed to your IBM representative or the IBM branch office serving your locality. 
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